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PARTE I 


UTILITÀ 


PREFAZIONE 


Nella realizzazione di questo libro ho voluto mettere in risalto due cose: 

- la prima, la più importante, è mostrare come sia possibile realizzare pro¬ 
grammi efficienti utilizzando due tecniche di programmazione e facendo¬ 
le interagire: il BASIC e il LINGUAGGIO MACCHINA (L M). 

Il perchè di questa scelta che comporta qualche compromesso, è molto 
semplice. 

Il BASIC è un buon linguaggio ma ha lo svantaggio di essere molto lento. 
Il LINGUAGGIO MACCHINA è molto veloce ma è abbastanza complicato 
programmarlo. 

Poter utilizzare l'uno e l'altro porta ad una via di mezzo tra ciò che è la 
praticità d'uso e la velocità di esecuzione di un programma. In generale 
ho voluto destinare ai BASIC la gestione dei calcoli, degli input e output, 
lasciando al L/M l'esecuzione di brevi ma veloci subroutine di varia utilità. 

- La seconda cosa è strettamente collegata alla prima. 

A volte non ci si accontenta di acquistare il software già pronto, bensi lo si 
vuole creare. È qui che si rivela la necessità di saper ben programmare in 
BASIC, ma anche in L/M. 

Sono del parere che nessuno saprà mai sfruttare a fondo il proprio com¬ 
puter se non sa almeno un poco dialogare con il microprocessore che esso 
contiene. 

Per concludere: 

Le vie scelte nello sviluppare il software proposto possono essere ampia¬ 
mente criticate. Ci sono infatti molti modi per affrontare e risolvere i vari prò- 



bleml. lo ne propongo uno, e son sicuro che sulla base di quanto si può rica¬ 
vare da questo libro, ciascuno saprà elaborare il proprio software adattando¬ 
lo alle proprie necessità nel migliore dei modi. 


Norme per l’introduzione dei listati 

Ora che il lavoro è finito e che ho in mano una pila di listati, mi accorgo 
della necessità di dare qualche informazione su come digitarli nel computer. 

La maggior parte dei programmi sono stati fatti per poter girare su tutte le 
versioni dello Spectrum e perciò anche nelle due configurazioni di memoria, 
16 e 48 Kbytes. 

Molti di questi sono lunghi e a volte si dividono in due parti. Quando questo 
si verifica è perchè i due listati nella memoria di un 16k non ci stanno. 

È consigliabile perciò seguire le istruzioni al seguito di ogni programma. 

In generale uno dei due listati costituisce la parte in LINGUAGGIO MAC¬ 
CHINA (L/M) codificata in esadecimale nelle linee di DATA, esempio: 

9000 DATA "3E”,"02”,"CD","01 ”,”16”, ecc... 

In questi casi occorre fare molta attenzione nel digitare i numerosi codici 
e, fatto molto importante, essi devono essere introdotti col cursore nel modo 
CAPS SHIFT (o CAPS LOCK), cioè in maiuscolo. 

Sempre prima di far girare il programma, bisogna salvarlo su nastro. Le 
routine in L/M sono delle belle cose ma un solo bit fuori posto manda in tilt il 
computer. 

Con un po' di esperienza sarà facile ridurre i due generici listati in unico 
blocco, ad esempio accodando al programma principale su nastro, la parte 
in L/M richiamabile poi con un LOAD "nome del file" CODE xxxx dopo aver 
eseguito un CLEAR xxxx-1 dove xxxx è l'indirizzo da cui iniziare a memoriz¬ 
zare l'L/M. 

Nei vari programmi di questo libro e particolarmente nei giochi, si fa largo 
uso di caratteri grafici. Questi nei listati sono stampati usando il carattere 
A.S.C.I.I associato. La stampante usata non è infatti quella di produzione 
Sinclair e per motivi legati alla grafica ho ritenuto fosse più semplice seguire 
questa strada. E stato invece possibile stampare i caratteri grafici visibili sui 
tasti numerici dello Spectrum avendoli resi compatibili con la matrice utiliz¬ 
zata dalla stampante. 



Struttura dei programmi 


Come già spiegato in precedenza, questo libro mostra uno dei modi per 
programmare facendo agire fra loro il linguaggio BASIC e l'L/M. È chiaro 
che il metodo proposto non ha la pretesa di essere l'assoluto e comunque il 
più corretto. 

Ci sono modi più efficienti per programmare e, prima ancora, di affrontare 
un problema. 

I programmi in questo libro sono per il novanta per cento di mia produzio¬ 
ne mentre gli altri sono il risultato di una rielaborazione (in meglio spero) di 
ciò che già c'era di interessante. 


La maggior parte si compone di due parti: 

1) il programma vero e proprio, 

2) il listato assembler delle routines di cui esso si serve. 


Ogni programma già contiene la codifica di tali routines in L/M in un certo 
numero di linee di DATA ma ho ritenuto fosse cosa utile dare anche il listato 
assembler di ciascuna di esse perchè fosse possibile con un po' di pazienza 
apportare le eventuali necessarie modifiche. 

Allo scopo gli assembler sono commentati per gruppi di linee dando ove 
possibile la descrizione operativa delle routines che risiedono in ROM. 

In generale i programmi in L/M sono stati fatti per risiedere in RAM a par¬ 
tire dall'indirizzo 32000 per dare la possibilità di utilizzo anche a coloro che 
possiedono uno Spectrum 16k. 

Per certe applicazioni ciò non è stato possibile per cui solo l'utente di un 
48k potrà servirsene. 

La maggior parte delle routine sono rilocabili. In linea di principio ciò si¬ 
gnifica che è possibile memorizzarle in ogni zona della memoria senza pre¬ 
giudicarne il funzionamento. 

Nello Spectrum ciò non è sempre vero. Ci sono zone di RAM utilizzate dal 
BASIC in vari modi, delle quali risulta pericoloso servirsi. A volte è la routine 
stessa che utilizzerà la zona di RAM nella quale l'abbiamo incautamente po- 

Tutti i listati sono il prodotto di una stampante e interfaccia parallela, dopo 
aver provato ciascun programma su uno Spectrum ISSUE TWO. 

Credo che non vi siano problemi di sorta con gli Spectrum della serie sue- 



cessiva e comunque con le varie interfacce ad essi collegate, MICRODRIVE 
compresi. 

Per concludere desidero ringraziare il Sig. Gian Maria VITTADINI per la 
pazienza dimostrata nel darmi consigli per la stesura del libro e soprattutto 
per la collaborazione prestata nel redigere i vari programmi di gioco e la loro 
composizione grafica. 


HEX LOADER 


Questo è un semplice programma che serve per poter memorizzare in 
RAM valori numerici posti nelle linee di DATA. 

Perciò si userà spesso in quei programmi del libro che utilizzeranno routi¬ 
ne in L/M, o comunque ove sia necessario porre in zone di RAM dei numeri 
ben determinati. Questi valori per poter essere manipolati dal programma in 
oggetto, devono essere inseriti come numeri esadecimali e visti come una 
stringa alfanumerica di due digit. La generica linea di DATA avrà questa for- 

1000 DATA "FO","1E”,"08", ecc... 

Il valore numerico decimale viene estratto da questa stringa con poche e 
semplici manipolazioni e quindi messo in RAM (istruzioni POKE). L'elabora¬ 
zione prosegue fino a che la stringa letta contiene i due asterischi "**" che 
rappresentano il marker di fine dati. 

È necessario abbassare la RAMTOP se si desidera memorizzare questi 
dati in zone di memoria normalmente accessibili al BASIC. Ciò viene fatto 
con un CLEAR nnnn, essendo nnnn+1 la locazione iniziale ove memorizzare 
i dati. 

9000 REM HEX-CODE Caricatore 
9005 REM 

9010 REM Introdurre i dati HEX 
9015 REM con il CURSORE nel 
9020 REM modo CflPS-LOCK 
9025 POKE 23659,8 

9030 CLEHR 31999: LET a=320@0 



9035 READ a* 

9040 IF a*-"**" THEN STOP 
9045 LET h=CODE a*<1>-46 
9050 LET h-h-7*<a*<1»"@"> 
9055 LET l=CODE a«<2>-48 
9060 LET l*l-7#< a#K 2 >>"@"> 
9065 POKE a,16#h+l: LET a=a+l 
9070 GO TO 9035 
9075 REM 

9080 REM DATI PROGRAMMA L.M. 
9085 REM 

9090 REM SUB NOME DEL PROGR. 

9095 REM 

9100 DATA "**" 


DEC LOADER 


Ovviamente esiste una maniera più semplice per memorizzare gli stessi 
dati. Basta cioè inserire i valori decimali nelle linee di DATA, leggerli e senza 
elaborazioni metterli in RAM. In tal caso la generica linea di DATA avrà la 
seguente forma: 

9100 DATA 240,30,8, ecc... 

Tuttavia mi permetto di consigliare un'ulteriore modifica: 

9100 DATA "240”, ”30”, ”8”. ecc... 

Questa modifica appesantisce il lavoro del programmatore, ma occupa 
meno spazio in memoria e poi è perfettamente compatibile con il program¬ 
ma più avanti presentato (HEX-DEC DATA FORMAT). 

9008 REM DEC-CODE Caricatore 
9005 REM 

90:10 REM Introdurre i dati DEC 
9015 REM tra gli apici 
9020 REM Es. "255“,"10" , ecc. 




9025 REM 

3030 CLERR 31393: |_ET a-32000 
9035 READ a* 

9040 IF a»»"**" THEN STOP 
9045 REM 
9050 REM 

9855 LET v=VRL a*. POKE a,v 
9060 REM 
3065 REM 

9070 LET a-a+1: GO TO 3035 
3075 REM 

9080 REM DATI PROGRRMMR L.M. 
9085 REM 

9090 REM SUB NOME DEL PROGR. 

9095 REM 

3100 DRTfi "#*" 


NUMERO IN MEMORIA 


Come si vede in figura, porre il numero fra gli apici fa risparmiare 4 byte 
per ogni numero che si considera. 

Ciò avviene perché ogni costante numerica viene posta in memoria come 
un insieme di caratteri ASCI I seguiti dal byte OE (in esadecimale) che indica 
al calcolatore che i 5 byte successivi sono la rappresentazione floating-point 
o intera del numero in questione. 

Questo non accade se il numero viene posto fra gli apici, esempio: "240”, 
perché esso viene visto come stringa alfanumerica. 


& 


Esempio di come e' 
memorizzata una linea 
di DRTR in memoria 


DRTH 9100 DRTR 240 ■■ 


— 

XX 



Codlc* D FI TFT 


DRTR' 






00 -> 

00 -> 




22 

32 

a-** 

3@ 



HEX-DEC DATA FORMAT 


Questo è un breve programmino che si avvale di una piccola routine in lin¬ 
guaggio macchina. A che cosa serve? È semplice. Qualsiasi dato numerico 
compreso tra 0 e 255, un byte, viene prelevato dalla memoria all'indirizzo 
specificato, convertito opzionalmente in esadecimale e ficcato in una linea 
di DATA che si andrà a posizionare in coda al programma. 

L'utilità di questo programma sarà più evidente a coloro che sono abituati 
ad inserire nei propri listati Basic un certo numero di dati numerici: per e- 
sempio una routine in L/M, come in questo caso, oppure dati che definisco¬ 
no un nuovo carattere grafico. 

C'è poco da dire sul programma in sè. Penso che sia chiaro e comprensi¬ 
bile a tutti. Bisogna però fare attenzione a una cosa: la variabile "r" stabili¬ 
sce il numero di dati che dovranno comparire in ogni linea. È bene non esa¬ 
gerare con questo valore per non correre il rischio di bloccare il sistema. La 
routine in L/M infatti adopera il buffer della stampante come memoria tem¬ 
poranea per costruire la linea Basic. Questo buffer è limitato a 256 byte 
quindi è molto facile saturarlo. 

Il primo comando da dare una volta caricato il programma è RUN 9000 
per permettere di caricare il L/M. Si potranno poi cancellare le linee di data 
che non servono più e iniziare a riprogrammarne di nuove. 

Come sempre invito a dare un'occhiata al listato assembler per cercare di 
capire come il tutto funziona. 

©000 REM 

8005 REM DRTA LINE FORMAT 

8010 REM 


8015 


PQKE 23658. 



8020 LET drU-32000: LET ok-1 
8025 LET r-4 = LET c-23296= LET fl-0 
8030 LET p=c+5 = LET scroi 1-23692 
0035 LET S-0 = POKE P- 1,228= CLS 
8040 INPUT FLASH li "Inizio DATI ? 
8045 INPUT FLASH 1;"FINE DATI ? "jf 
8050 INPUT FLASH 1;"Formato HEX^DEC 
; LINE a* 

8055 IF a«:i>-"H" THEN LET fl-1 
8060 REM 

8065 REM INIZIO ROUTINE 

8070 REM 

8075 FOR j-i TO f= LET n-PEEK j 
8080 GO SUB 8115= NEXT j 
8085 IF ok THEN GO SUB 8280 
8090 POKE 23658,0 

8095 BEEP .1,20= STOP 
8100 REM 

8105 REM POKE "xx", 

8110 REM 

8115 POKE P,34 = LET p-p+1 
8120 IF fi THEN GO TO 8145 
8125 LET n*-STR* n 
8130 FOR z-l TO LEN n* 

8135 POKE P, CODE z> 

8140 LET p-p+1 = NEXT z= GO TO 8160 
8145 GO SUB 8250 

8150 POKE p,h+48+7*<h>9)= LET p-p+1 

8155 POKE P,l+48+7*<l>9>= LET p-p+1 

8160 POKE P,34 = LET p=p+l 

8165 POKE p,44 

8170 LET p-p+1; LET s-s+1 

8175 IF jOf AND s<r THEN RETURN 

8180 IF J-f AND S<r THEN GO TO 8280 

8185 POKE < P-l ),13 = LET s»0 

8190 REM 

8195 REM SUB # di LINEA 
8200 REM 

8205 LET n-P-c-4: GO SUB 8245 
8210 POKE c+2,1= POKE c+3,h 
8215 LET P-c+5= POKE scroi1,-1 
8220 RANDOMIZE USR data 
8225 BEEP .1,25= RETURN 



8230 

8233 

8240 

8245 

8250 

8255 

8260 

8265 

8270 

8275 

8280 

8285 

8290 

8295 

8300 

9000 

9005 

9010 

9030 

9035 

9040 

9045 

9050 

9055 

9060 

9065 

9070 

9075 

9080 

9085 

9090 

9095 

9100 

9105 

9110 

9115 

9120 

9125 

9130 

9135 

9140 

9145 

9150 


REM 

REM SUB N LQW-HIGHT 
REM 

LEI d-256: GO TO 8255 

LET d-16 

LET h»INT <iVd> 

LET l«n-h*d: RETURN 
REM 

REM SUB PQKE "##" 

REM 

PQKE p,34 : LET P=P+1 
POKE p,42 : LET p=p+1 
PQKE Pj 42 : LET P=P+1 
POKE P,34: LET p=p+ 2 
LET ok=0: GQ TO 8185 
REM 

REM HEX-CODE Caricatore 
REM 

CLEAR 31999: LET a=»32000 
READ a* 

IF a*”"»*" THEN STOP 
LET h-CODE a*<1>-48 
LET h=h-7*<a*< 1 »"0" > 

LET 1-CODE a*<2>-48 
LET l-l-7*<a«K2>>"a" > 

POKE a,16*h+l= LET a=a+l 

GO TO 9035 

REM 

REM DATI PROGRAMMA L.M. 
REM 

REM SUB DATA LINE FORMAT 
REM 

DATA "21"j"0F","27","CD" 
DATA "6E" , 11 19" , "28" , "41 " 
DATA "IR","67","13","1A" 
DATA "6F","01","05","00" 
DATA "09","EB","21", "0F" 
DATA "27","A7","ED","52" 
DATA "38","2F","21","00" 
DATA "5B","72","23","73" 
DATA "2B","D5","EB","ED" 
DATA "4B","02","5B","03" 
DATA "03","03","03","C5" 




9153 DATA 
9160 DATA 
9165 DATA 
9170 DATA 
9175 DATA 
9180 DATA 
9185 DATA 
9198 DATA 


"D5" , "2A"j"4B","5C" 
"1A","CD","88 "j"0F" 
"ED"j"53" , "4B"j"5C“ 
"DI" , "13" , "01"j"0B" 
"79"j"B 0"j"20"."EB" 
"SE","02"i"CD">"01" 
"16" , "E1">"C3" , "2D" 
"18" , "CF" , "0F"j 


ASS.HEX- DEC DATA FORMAT 


Questa routine è usata dal programma HEX-DEC DATA FORMAT. Il suo 
compito è quello di accodare al listato di questo programma Basic una nuo¬ 
va linea i cui dati sono stati depositati nel buffer di stampante. 


LINEE DA 150 a 170: 

Si cerca la linea Basic col numero 9999 (che è il massimo consentito) e 
se esiste si da un messaggio di errore. 

LINEE DA 190 a 310: 

Si carica nei registri HL il numero dell'ultima linea Basic e le si somma 
l’incremento (fissato in 5, ma è possibile modificarlo) e si controlla che il nu¬ 
mero cosi ottenuto non superi 9999. 

LINEE da 330 a 390: 

La zona di RAM del buffer di stampante (da 5B00 a 5BFF esadecimali) 
viene utilizzata per memorizzare la nuova linea di Basic che andrà posta in 
coda al programma. Per cui si memorizza il nuovo numero di linea e. 

LINEE da 410 a 580: 

Prelevata la lunghezza della nuova linea Basic, si da inizio al trasferimen¬ 
to in fondo al programma aggiornando il puntatore di inizio variabili Basic. 


10 



LINEE da 590 a 620: 


Si lista la nuova linea. 


LINEE da 630 a 640: 
Messaggio di errore. 


7000 


0F30 

196E 

1601 

1820 


5B00 

5C4B 

7000 210F2? 
7D03 C06E19 
7006 2841 

7008 IR 

7009 67 
7O0R 13 
7O0B IR 
7O0C 6F 

7000 010500 

7010 09 

7011 EB 

7012 210F27 

7015 R7 

7016 ED52 
7018 382F 


0000 
0010 ; 
0020 ; 
0030 i 
0040 ; 
0050 INST 
0060 Fino 
0070 OPEN 
0080 LIST 
0090 ; 
0100 ; 
0110 ; 
0120 RAM 
0130 VRR 
0140 

0150 INIZ 

8160 

0170 

0180 

0190 

0280 

0210 

0220 

8230 

0240 ; 

0250 


0300 
0310 
0320 ; 


ORO 32000 

"Routine" 

"Sistema" 

EQU 0F88H 
EQU 196EH 
EQIJ 160 IH 
EQU 1820H 

"Variab." 

EQU 5B00H 
EQU 5C4BH 

LO HL,9999 
CRLL FINO 
JR Z.ERR 

LO RADE) 

LO H.,8 
INC DE 
LO fi.< OE) 

LO L.R 

LO BCj 5 
ROO HL..BC 
EX OEj HL 
LO HL,9999 
ANO R 
SBC HL,OE 
JR C,ERR 





701R 
7010 
7D1E 
701F 
7 020 

7021 

7022 


7023 

7027 

7026 

7029 

702R 

702B 

702C 

7020 

7036 

7031 

7034 

7038 

7039 


7D3B 

703C 

7030 

703E 

7040 

7042 

7045 

7046 
7049 
704R 

ERR 

LB0 

IN 12 

VRR 

RRM 

LIST 

OPEN 

FINO 

i NS T 


21005B 0330 

72 0340 

23 0350 

73 0360 

2B 6370 

05 0388 

EB 0390 

0400 j 

ED4B025B 0410 

03 0420 

03 0430 

03 0440 

03 0450 

C5 0460 LB0 

05 0470 

2R4B5C 0480 

IR 0490 

CO880F 0500 

E0534B5C 0510 

01 052w 

13 0530 

CI 0540 

0B 0550 

79 0560 

B0 0570 

20EB 0580 

3E02 0590 

CD0116 0600 

E1 0610 

C32D18 0620 

CF 0630 ERR 

0F 0640 

0650 

7049 

702B 

7000 

5C4B 

5B00 

1820 

1601 

196E 

0F88 

620B 


LO HL..RRM 
LO < HL >, 0 

INC HL 
LO CHLJ.E 
OEC HL 
PUSH OE 
EX OE j HL 

LO BC , (. RRM+2 
INC BC 
INC BC 
INC BC 
INC BC 
PUSH BC 
PUSH OE 
LO HL,< VRR > 

LO R,< OE) 

CHLL INST 
LO < VRR >,OE 
POP OE 
INC OE 
POP BC 
OEC BC 
LO fl,C 
OR B 
JR NZ , LB0 
LO Rj 2 
CRLL OPEN 
POP HL 
JP LIST 
RST 8 
OEF'B 0FH 
ENU 




HEX 


Questo programma serve per fare il «DUMP» di zone di memoria cioè mo¬ 
strarne sul video il contenuto eventualmente associato al relativo carattere 
ASCII. 

Qualcuno obietterà che sia inutile complicare le cose ricorrendo al L/‘M. 
Ma non è cosi poiché analizzando il listato assembler si possono imparare 
numerose cose ad esempio: 

- come predisporre il video alla scrittura (il che significa come aprire il ca¬ 
nale logico associato al video), 

- come passare variabili numeriche al L/M senza ricorrere a macchinosi 
POKE, 

- e infine come realizzare in L/M la conversione di un valore numerico nella 
corrispondente rappresentazione ASCII esadecimale. 


A tutto questo si deve associare la velocità propria del linguaggio macchi¬ 
na e allora certe soluzioni diventano più accettabili. 


1000 REM HEX-CHR*-DUMP 
1005 REM ESEMPIO UTILIZZO 
1010 REM ROUTINE DI HEX-PRINT 
1015 REM 

1020 BORDER 1: PAPER 1: INK 7 

1025 CLEAR 31999: GG SUB 1175 

1030 FOR i-0 TO 7 

1035 POKE USR M *"+i,0: NEXT i 

1040 CLS : POKE USR "a" +4 .16 

1045 INPUT "INDIRIZZO INIZIALE ? ";i 

1050 INPUT "INDIRIZZO FINALE ? ";f 

1055 CLS • LET HX*32000 

1060 LET s-5: LET SCRL-HX+57 

1065 PRINT AT 0,9;"HEX-CHR*-DUMP" 

1070 FOR j=i TO f STEP s 
1075 PRINT AT 21,0; 

1080 IF j<256 THEN RANDOMIZE 0+USR HX 
1085 RANDOMIZE j+USR HX 
1090 PRINT " "; 



1095 FOR k»0 TO s-1 
1100 RANDOMIZE PEEK <j+k>+USR HX 
1105 PRINT " "j: NEXT k 
1110 PRINT " 

1115 FOR k-0 TO fl-1 
1120 LET p-PEEK <j+k> 

1125 IF P>31 AND P<128 THEN PRINT CHR* 

p; : GO TO 1135 

1130 PRINT CHR* 144; 

1135 PRINT " = NEXT k 

1140 BEEP .01,60 
1145 RANDOMIZE IJSR SCRL 
1150 NEXT J 
1155 GO TO 1045 
1160 REM 

1165 REM HEX-CODE Caricatore 
1170 REM 

1175 LET a-32000 

1180 PRINT RT 10,11;"ATTENDERE" 

1185 BEEP .01,65: READ a* 

1190 IF a*-"##" THEN RETURN 
1195 LET h-CODE a*< 0-48 
1200 LET h«h-7#<a*<1>>"9 "> 

1205 LET 1-CODE a*<2>-48 
1210 LET l*l-7*< a*<2 >>"@" ) 

1215 POKE a,16*h+l: LET a=a+l 
1220 GO TO 1185 
1225 REM 
1230 REM 
1235 REM 
1240 REM 
1245 REM 
1250 DATA 
1255 DATA 
1260 DATA 
1265 DATA 
1270 DATA 
1275 DATA 
1280 DATA 
1285 DATA 
1290 DATA 
1295 DATA 
1300 DATA 


DATI PROGRAMMA L.M. 
HEX 

"2A", "65", "5C", ,, ED" 
"5B","63","5C","R7" 
"ED","52","7D","FE" 
"05","DA","8B","28" 
"3E","02","CD","01" 
"16","CD","1B","7D" 
"C3","28","2D","CD" 
"99","1E","78","R7" 
"C4","24","7D","79" 
"F5","IF","IF","IF" 
"IF","CD","2D", "7D" 
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ASS.HEX 


Questa subroutine serve per stampare il contenuto del registro BC in esa- 
decimale sullo schermo. 

Veniamo al commento del listato: 

LINEE da 160 a 220: 

In queste linee di programma ci si assicura che il valore da stampare in 
Hex sia stato correttamente passato al linguaggio macchina. Ciò è stato fat¬ 
to eseguendo un test sul contenuto della zona RAM definita dalle variabili di 
sistema STED e STBT (chiamate più o meno con lo stesso nome sul manua¬ 
le Basic). Questa zona di RAM è utilizzata dal Basic per memorizzare il valo¬ 
re temporaneo di alcune variabili correntemente utilizzate. Dato che in ge- 
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nere abbiamo a che fare con variabili in floating-point ne risulta che, di cia¬ 
scuna di esse, se ne da una rappresentazione a 5 byte ed è questo il valore 
da controllare essendo una sola la variabile che passa dal Basic al L/M con 
l’istruzione del tipo RANDOMIZE var. + USR 32000. 

Si dà un messaggio di errore nel caso la variabile non sia stata passata. 

LINEE da 230 a 240: 

In queste linee si apre il canale logico dedicato allo schermo : A=2. Se il 
registro A avesse contenuto ad esempio il numero 3 l'output sarebbe stato 
diretto alla stampante, con A = 0 oppure 1 si predisporrebbe l'uscita sulla 
parte bassa dello schermo. 

LINEE da 250 a 260: 

Qui è molto semplice: si chiama la routine di conversione e prima del ri¬ 
torno al Basic si ripristina quella famosa zona di RAM, di cui prima abbiamo 
parlato, con un valore a caso. 

LINEE da 270 a 430: 

Si esegue il prelievo del numero che si vuole convertire e lo si passa alla 
routine di conversione. 

LINEE da 440 a 450: 

Di volta in volta si stampa sul canale logico selezionato in precedenza il 
carattere ASCII relativo al nostro numero in esadecimale. 


7D00 0000 

0010 
0020 
0030 
0040 

1E99 0050 

2D28 0060 

238B 0070 

1601 0080 

0010 0090 


ORG 32000 

11 Routine' 
"Sistema' 

LDBC EQU 1E99H 
STIRCK EQU 2D28H 
ERR EQU 288BH 
OPEN EQU 160IH 
OUTC EQU 10H 


0100 

0110 

0120 


"Variab. 





5C65 0130 STED EQU 5C65H 

5C63 0140 STBT EQU 5C63H 

0150 ; 

7000 2R655C 0160 INIT LD HL,<STED> 

7003 E05B635C 0170 LO DE,<STBT) 

7007 A7 0180 ANO A 

7008 E052 0190 SBC HL, OE 

7O0A 7D 0200 LO A,L 

7O0B FE05 0210 CP 5 

7000 0A8B28 0220 JP C, ERR 

7010 3E02 0230 LO A,2 

7012 CO0116 0240 CALL OPEN 

7015 CD1B70 0250 CALL LORG 

7018 C32620 @260 JP STACK 

701B C0991E 0270 LORG CALL LOBC 

7D1E 78 0280 LO A,B 

701F A7 0290 ANO A 

7020 C42470 0300 CALL NZ,CONV 

7023 79 0310 LD A,C 

7024 F5 0320 CONV PUSH AF 

7025 1F 0330 RRA 

7026 1F 0340 RRA 

7027 1F 0350 RRA 

7028 1F 0360 RRA 

7029 CD2D70 0370 CALL NIBLE 

702C FI 0380 POP AF 

7D20 E60F 0390 NIBLE ANO 0FH 

702F C630 0400 AOO 30H 

7031 FESA 0410 CP 3AH 

7033 3802 0420 JR C,QUT1 

7035 C607 0430 ADO 7 

7037 07 0440 OLITI RST OUTC 

7038 C9 0450 RET 

0460 END 

0UT1 7D37 
NIBLE 7020 
CONV 7024 
LORG 701B 
INIT 7000 
STBT 5C63 
STEO 5C65 
OUTC 0010 
OPEN 1601 
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ERR 288B 
STOCK 2D28 
LDBC 1E99 
# 6862 


LIST 


Questo programma permette di listare un gruppo di linee di un programma 
Basic comprese tra due numeri di linea. 

È noto infatti che lo Spectrum non permette di listare su schermo o su 
stampante un certo numero di linee. A volte però si sente questa necessità e 
qui viene dato un esempio di come si può aggirare l’ostacolo. 

La solita routine in linguaggio macchina va memorizzata in RAM con un 
RUN 9000. A questo punto si può cancellare il programma Basic del carica¬ 
tore del L/M e caricare quello che bisogna far stampare. 

Il comando da dare é del tipo: 

RANDOMIZE 100 + 255 * USR 32000 

dove 100 e 255 sono due numeri di linea, iniziale e finale, tra le linee Basic 
da stampare, mentre 32000 è il solito indirizzo in RAM dove abbiamo alloca¬ 
to la routine in L/M. 

Date un’occhiata anche a questa da cui si ricava, fra le varie cose, l'indi¬ 
rizzo in ROM ove il computer accede per listare una linea Basic. 

9000 REM 

9005 REM HEX-CODE Caricatore 
9010 REM 

9030 CLERR 31999: LET a=32000 
9035 REfiD a* 

9040 IF a*-"**" THEN STOP 
9045 LET h-CQDE a*<1>-48 
9050 LET h=h-7*< a*<1>>"0"> 

9055 LET 1-CODE a*<2>-48 
9060 LET l«l-7*<a*<2>>"0"> 
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906 5 
9070 
9075 
9080 
9085 
9090 
9095 
9100 
9105 
9110 
9115 
9128 
9125 
9130 
9135 
9140 
9145 
9150 
9155 
9160 
9165 
9170 
9175 
9180 
9185 
9190 
9195 
9200 
9205 
9210 
9215 


POKE *,16#h+l: LET *-*+1 

GO TO 9035 

REM 

REM ORTI PROGRAMMA L.M. 
REM 

REM SUB LIST 

REM 

DHTFI "3E" , "03" , " 18", "02" 
DHTfl "3E","02","F5","2fl" 
DATA "65","5C","ED","5B" 
DATA “63","SC","A7","ED" 
DATA "52","7D","FE","0A" 
DATA "DA","8B","28","FI" 
DATA "CD","01","16","21" 
DATA "00","00","22","5F" 
DATA "5C","CD","99","1E" 
DATA "ED","43","02","5B" 
DATA "CD","99","1E","C5" 
DATA "E1","CD","6E","19" 
DATA "7E","E6","C0","20" 
DATA "24","CD","9A","16" 
DATA "ED","53","00","5B" 
DATA "2B","ED","4B","02" 
DATA "5B","03","CD","80" 
DATA "19","30","12","16" 
DATA "20","D9","E5","D9" 
DATA "CD","6E","18","D7" 
DATA "D9","E1","D9","2A" 
DATA "00","5B","23","18" 
DATA "D4","CD","2B","2D" 
DATA "C3","2B","2D","**" 


ASS.LIST 


La routine seguente è utilizzata dal programma LIST, e permette di listare 
su video o su stampante un certo numero di linee. Il comando da dare è il 
seguente: 



RANDOMIZE 


Y * USR RAM 


dove: X = linea iniziale 

Y = linea finale 

RAM = indirizzo della routine in RAM 

Commento: 

LINEE da 230 a 420: 

A seconda del punto di ingresso di questa routine, la stampa verrà fatta 
sul video o sulla stampante. Quindi: 

PTER = stampante 
PRINT = video 

TEST per vedere se i numeri delle due linee sono stati correttamente spe¬ 
cificati (altrimenti messaggio di errore). 

Quindi si prelevano tali numeri dopo aver azzerato la variabile di sistema 
XPTR. 

Questa normalmente contiene un indirizzo e se ne serve il computer in fa¬ 
se di editing. In caso di errore si memorizza in XPTR il punto in cui è avvenu¬ 
to l'errore che verrà visualizzato con il simbolo '?' in reverse. 

LINEE da 430 a 530: 

Si ricerca la linea il cui numero è contenuto in HL e si fa un TEST per ve¬ 
dere se è l'ultima linea da stampare. 

LINEE da 540 a 640: 

Si stampa la linea : il registro D contiene il codice del carattere che si de¬ 
sidera stampare dopo il numero di linea. Normalmente è il carattere ' 
(spazio), ma il computer a seconda dei casi adopera '>'. 

Prima di ritornare al Basic si devono ripristinare le zone di memoria svuo¬ 
tate dei numeri di linea suddetti. Ciò è necessario per non mandare in tilt il 
sistema. 

7000 0000 0RG 32000 

0010 ; 

0020 ; 
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"Rout.ii 



"Sistema" 


0040 ; 

196E 0050 FIND EGU 196EH 

169R 0060 LINU EGU 169RH 

1980 0070 CPLN EQIJ 1980H 

186E 0000 PRIL EGU 166EH 

1601 0090 OPEN EGU 160IH 

1E99 0100 LDBC EQU 1E99H 

2D2B 0110 STBC EGU 2D2BH 

288B 0120 ERRM EQU 288BH 

0130 ; 

0140 ; "Variab." 

0158 i 

5B00 0160 LINI EQU 5B00H 

5B02 0170 LIN2 EGU 5B02H 

SC5F 0100 XPTR EQU 5C5FH 

5C65 0190 ENDS EQU 5C65H 

5C63 0200 BOTS EGU 5C63H 

0020 0210 CHFlR EQU " " 

0220 ; 

7D00 3E03 0230 PTER LD fi, 3 

7D02 1802 0240 JR TEST 

7D04 3E02 0250 PRINT LD fi-2 

7D06 F5 0260 TEST PUSH RF 

7D07 2R655C 0270 LD HL, < ENDS > 

7D0R ED3B635C 0280 LD DE,< BOTS 

7D0E R7 0290 RND R 

7D0F ED52 0300 SBC HL,DE 

7D11 7D 0310 LD R,L 

7D12 FE0R 0320 CP 10 

7D14 DR8B28 0330 JP C,ERRM 

7D17 FI 0340 POP RF 

7D18 CD0116 0350 CRLL OPEN 

7D1B 210000 036@ LD HL,0 

7D1E 225F5C 0370 LD <XPTR),HL 

7D21 CD991E 0380 CRLL LDBC 

7D24 ED43025B 0390 LD <LIN2),BC 

7D28 CD991E 0400 CRLL LDBC 

7D2B C5 0410 PUSH BC 

7D2C E1 0420 POP HL 

7D2D CD6E19 0430 NEXT CRLL FIND 

7D30 7E 0440 LD R,<HL> 

7D31 E6C0 0450 RND 0C0H 
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7D33 2024 0460 JR HZ,END 

7D35 CD9R16 0470 COLL LINU 

7D38 ED53005B 0480 LD <LINO,DE 

7D3Q 2B 0490 DEC HL 

7D3D ED4B025B 0500 LD BC,<LIN2) 

7D41 03 0510 INC BC 

7D42 CD8019 0520 CRLL CPLN 

7D45 3012 0530 JR NC, END 

7D47 1620 0540 LD D,CHRR 

7D49 D9 0550 EXX 

7D4R E5 0560 PUSH HL 

7D4B D9 0570 EXX 

7D4C CD6E18 0580 CRLL PRIL 

7D4F D7 0590 RST 10H 

7D50 D9 0600 EXX 

7D51 E1 0610 POP HL 

7D52 D9 0620 EXX 

7D53 2R005B 0630 LD HL> < LINI> 

7D56 23 0640 INC HL 

7D57 18D4 0650 JR NEXT 

7D59 CD2B2D 0660 END CRLL STBC 

7D5C C32B2D 0670 JP STBC 

0680 END 

END 7D59 
NEXT 7D2D 
TEST 7D06 
PRINT 7D04 
PTER 7D00 
CHRR 0020 
BOTS 5C63 
ENDS 5C65 
XPTR 5C5F 
LIN2 5B02 
LINI 5B00 
ERRM 288B 
STBC 2D2B 
LDBC 1E99 
OPEN 1601 
PRIL 186E 
CPLN 1980 
LINU 169R 
FIND 196E 
# 6062 
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ERASE LINE 


Il programma ERASE LINE serve a cancellare un blocco di linee Basic. 
Quello che si vede in figura è il listato del programma caricatore del L/M coi 
relativi dati. Dopo il RUN il programma metterà in memoria questa piccola 
routine a partire dall'Indirizzo 32000. 

Per vedere se tutto funziona, digitare il seguente comando: 

RANDOMIZE 9000+9160*USR 32000 

Il risultato sarà quello di cancellare le linee tra 9000 e 9160 comprese. 
Nel dare il comando è necessario interporre tra i due numeri di linea il segno 
"meno" oppure il “più” e poi il segno "per" o "diviso", insomma con priorità 
aritmetica più alta rispetto al precedente. Non cosi facendo si otterrà un 
messaggio di errore del tipo: 

Q Parameter Error, 0:1 


Se tutto funziona, si otterrà il seguente messaggio: 

N Statement Lost, 0:1 

Date un'occhiata al listato assembler per vedere come tutto ciò avviene. 


9000 REM 

9005 REM HEX-CODE Cairicatore 
9010 REM 

9030 CLEAR 31999: LET a-32000 
9035 READ a.» 

9040 IF a»-"*#" THEN STOP 
9045 LET h-CODE a*<1>-48 
9050 LET h-h-7#(a*<1>>"8"> 
9055 LET 1=C0DE a*<2>-48 
9060 LET l-W*<a*<2>>"a" > 
9065 POKE a,16*h+l: LET a-a+1 
9070 GO TO 9035 
9075 REM 

9080 REM DATI PROGRAMMA L.M. 
9085 REM 

9090 REM SUB ERASE PROG. LINE 
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9110 DATA "ED" 
9115 DATA "0A" 
9120 DATA "CD" 
9125 DATA "C5" 
9130 DATA "C5" 
9135 DATA "19" 
9140 DATA "CD" 
9145 DATA "A7" 
9150 DATA "06" 
9155 DATA "D5" 
9160 DATA "19". 


OC", Hr 

"7D","FE 1 
"8B","28 1 
"1E","03‘ 
"99"j"1E 1 
"CD","6E 1 
"E1","D5 1 
"19","DI' 
"52","28' 
"E2","EB 1 
'CI","CD","E8 1 
'CF","16","*#' 


9095 REM 

9100 DATA "2A","65","5C 
■63", 
'52", 
■DA", 

'9 9", 
XD", 
'El", 
■EB", 

'6E", 
'ED", 
'38", 


ASS. ERASE LINE 


Il commento a questa routine è molto semplice. I codici sono stati memo¬ 
rizzati a partire dalla locazione 32000, ma come i più esperti avranno notato, 
la routine risulta essere rilocabile in qualunque zona della memoria. 


Veniamo al commento: 

LINEE da 150 a 210: 

Test. Ci si assicura che il calcolatore abbia messo in memoria i due nume¬ 
ri di linea, altrimenti si da un messaggio di errore. 

LINEE da 220 a 370: 

Si prelevano questi numeri, si cercano gli indirizzi delle rispettive linee, si 
calcola il numero complessivo di byte occupati dalle linee comprese fra 
quelle indicate incluse e 

LINEE da 380 a 430: 

si cancellano producendo il messaggio N Statement Lost.... 
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7 D00 


0010 ; 

0020 ; "Routine" 

0030 ; "Sisterna" 

0040 ; 

288B 0050 ERRM EQU 288BH 

1E99 0060 LDBC EQU 1E99H 

196E 00?0 FIND EQU 196EH 

19E8 0080 DELB EQU 19E8H 

0090 ; 

0100 ; "Variata." 

0110 ; 

5C65 0120 ENDS EQU 5C65H 

5C63 0130 BOTS EQU 5C63H 

0140 ; 

?D00 2R655C 0150 INIZ LD HL, < ENDS > 

7D03 ED5B635C 0160 LD DE,<BOTS> 

7D07 R7 0170 AND fl 

7D08 ED52 0180 SBC HL,DE 

7D0fl 7D 0190 LD R,L 

7D0B FE0R 0200 CP 10 

7D0D DR8B28 0210 MIST JP C,ERRM 

7D10 CD991E 0220 CRLL LDBC 

7D13 03 0230 INC BC 

7D14 C5 0240 PUSH BC 

7D15 CD991E 0250 CRLL LDBC 

7D18 C5 0260 PUSH BC 

7D19 E1 0270 POP HL 

7D1R CD6E19 0280 CRLL FIND 

7D1D EB 0290 EX DE,HL 

7D1E E1 0300 POP HL 

7D1F D5 0310 PUSH DE 

7D20 CD6E19 0320 CRLL FIND 

7D23 DI 0330 POP DE 

7D24 R7 0340 AND R 

7D25 ED52 0350 SBC HL,DE 

7D27 2808 0360 JR Z,EXIT 

7D29 38E2 0370 JR C,MIST 

7D2B EB 0390 EX DE, HL 

7D2C D5 0390 PUSH DE 

7D2D CI 0400 POP BC 

7D2E CDE819 0410 CRLL DELB 

7D31 CF 0420 EXIT RST 08H 
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7D32 16 


0430 


DEFB 16H 
END 


EXIT ?D31 
MIST 7D0D 
INIZ 7D00 
B0T8 5C63 
ENDS 5C65 
DELB 19E0 
FIND 196E 
LDBC 1E99 
ERRM 288B 
# 6030 


RENUMBER 


Il RENUMBER serve a rinumerare le linee di un programma come noi de¬ 
sideriamo in modo da ordinarle a partire da un numero voluto secondo un in¬ 
cremento stabilito. 

È inclusa la possibilità di rinumerare le linee a partire dalla prima fino ad 
una linea all'interno del programma. 

Il renumber qui proposto è scritto in Basic e si appoggia su due routine in 
L/M e sebbene scritto in Basic, esso tiene conto di tutti i GOTO, GOSUB, RE- 
STORE, RUN, LIST, LLIST, LINE, seguiti da un numero di linea. 

Il programma si divide in tre parti: 

— la prima esegue un test in base ai parametri specificati nelle prime due li¬ 
nee (9950-9951) e cioè: 

init = nuovo numero di linea dal quale partire a rinumerare, 
step = passo tra due linee, 

LF = linea alla quale si deve fermare la rinumerazione. 

Infatti l'ultima linea rinumerata non deve avere numero superiore a quello 
della linea successiva e comunque non superiore o uguale a 9950, punto da 
cui Inizia II nostro programma di rinumerazione. 


26 



Questo risiede in memoria insieme a quello da rinumerare quindi bisogna 
fare attenzione che quest'ultimo non abbia linee che interferiscano con il 
RENUMBER. 

In tal caso bisognerà rinumerare manualmente queste poche linee. 

Per come lavora questo RENUMBER, è necessario che i comandi GOTO, 
GOSUB, ecc.., siano seguiti da numeri di linea a 4 digit (esempio: 0001, 
0102, ecc...), e non da espressioni numeriche di vario genere (esempio: 
GOTO a * 10, GOSUB 1000 + a * x). 

Per testare tutto il programma, cercando ogni comando seguito da nume¬ 
ro di linea, si fa uso di una routine in linguaggio macchina. Questo program¬ 
mino intercetta tutti questi comandi controllandone la «sintassi» e se qualco¬ 
sa va storto viene listata la linea con il cursore posto nel punto in cui bisogna 
apportare la correzione. 

La seconda fase utilizza ancora la routine in L/M precedente, questa volta 
però essa fornisce l'indirizzo in RAM del comando intercettato che viene 
memorizzato nella variabile R$ insieme al suo numero di linea. 

La terza fase è la rinumerazione vera e propria: qui il RENUMBER inizia a 
controllare i vecchi numeri di linea e in base alle informazioni contenute in 
R$, verifica se ad essi punta uno dei comandi (GOSUB, GOTO, RUN, ecc.) 
già visti. Se cosi è, si aggiorna la destinazione e comunque si rinumera la li- 

II RENUMBER nella prima parte memorizza le due routine in L/M, di cui 
una si chiama FIND TOKEN e abbiamo già visto a che cosa serve, l’altra 
serve a cancellare le linee ed è qui introdotta per comodità. 

Infatti dopo il RUN in memoria rimane solo il RENUMBER, mentre tutti i 
dati in L/M sono cancellati automaticamente. 

A questo punto si può fare il MERGE del programma da rinumerare e dare 
il comando RUN 9950. Avvenuta la rinumerazione si può lasciare in memo¬ 
ria il programma rinumerato eseguendo il comando GOTO 9999. 

Il RENUMBER in Basic, nonostante il L/M impiegato, è lento rispetto ad 
un equivalente programma totalmente in L/M. 

Comunque può servire ai più smaliziati i quali, basandosi su ciò che qui è 
stato proposto, potrebbero trovare lo spunto per costruirsi un completo RE¬ 
NUMBER in L/M. 

9000 REM 

5*005 REM HEX-CODE Ca.rice.tor» 
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9010 REM 

9030 CLERR 31999: GO SUB 9992: LET «.«Ne* 

t 

9035 READ 9» 

9040 IF a.*-"#*" THEN RANDOMIZE 0+9949*U 
SR <N#xt+191> 

9045 LET h-CODE «*<1>-48 
9050 LET h-h-7#< *•<1»"9"> 

9055 LET l-CODE a*C2>-48 
9060 LET l-l~7#<a»<2»"<l" > 

9065 POKE *, 16*h+l. : LET *-*+1 
9070 GO TO 9035 
9075 REM 

9080 REM DATI PROGRAMMA L.M. 

9085 REM 

9090 REM SUB FIND TOKEN 
9095 REM 

9100 DATA "2A","00","5B","18","14","2A" 
9105 DATA "53","50","01","DE","26","CD" 
9110 DATA "80","19","D0","CD","9A","16" 
9115 DATA "ED","53","02","5B","CD","BC" 
9120 DATA "18","7E","CD","B6","18","FE" 
9125 DATA "EA","20","09","2A","02","5B" 
9130 DATA "23","CD","6E","19","18","DE" 
9135 DATA "FE","EC","28","1F","FE","ED" 
9140 DATA "28","1B","FE","E5","28","17" 
9145 DATA "FE","F7","28","13","FE","CA" 
9150 DATA "28","0F","FE","F0","28","0B" 
9155 DATA "FE","E1","28","07","23","FE" 
9160 DATA "0D","28","BD","18","OC","23" 
9165 DATA "7E","FE","0D","28","F3","2B" 
9170 DATA "FE","3A","38","0E","7E","FE" 
9175 DATA "CA","28","E9","23","22" , "00" 
9180 DATA "5B","E5","18","31","18","9A" 
9185 DATA "E5","CD","BA","18","CD","B6" 
9190 DATA "18","22","00","5B","20","23" 
9195 DATA "FE","3A","28","04","FE","0D" 
9200 DATA "20","1B","2B","2B","7E","2B" 
9205 DATA "6E","67","CD","6E","19","20" 


9210 DATA "10","01","DE","26","CD","80" 
9215 DATA "19","30","08","CI","3R","04" 
9220 DATA "5B", "A7","20","D0","C9","3E" 
9225 DATA "02","32","04","5B","CD","01" 
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9230 DATA "16" , "E1","D9'\ "E3'V'D9","23" 
9235 DATA "22","5F","5C","2A","02","5B" 
9240 DATA "CD","SE","19","16","23","CD" 
9245 DATA "6E", "18", "D7","D9", "El'VDS" 
9250 DATA "11","10","00","21","90","1A" 
9255 DATA "CD","B5" , "03","10" , "A5" 

9260 REM 

9265 REM SUB ERASE LINE 
9270 REM 

9275 DATR "2A","65","5C","ED","5B","63" 
9200 DATA "5C","A?","ED","52","7D","FE" 
9205 DATA "0A","DA""0B","26""CD","99" 
9290 DATR " 1E" , "03 ", "C5 ", "CD ", "99" " 1E" 
9295 DATA "C5" "E1 " "CD" , "6E" , "19" , "EB" 
9300 DATA "El","D5" , "CD","6E","19","DI" 
9305 DATA "A?","ED","52","29","08","38" 
9310 DATA "E2","EB" , "D5" , "CI" , "CD","E0" 
9315 DATA "19","CF","16","*#" 

9320 REM 

9325 REM RENUMBER 

9330 REM 

9950 LET iTilt.* 1000 : LET step=5 

9951 LET lf-9950: LET x-23635 

9952 LET nl=»9950: LET Err=23308 

9953 LET c=256: POKE Err,1 

9954 GO SUB 9992: LET z*«="0000" 

9955 GO SUB 9987: RRNDOMIZE USR Ru.n 

9956 IF PEEK Err-2 THEN STOP 

9957 POKE Err,0: REM Reset Err 

9958 DEF FN *<x>-c*PEEK <x+l>+PEEK x 

9959 DEF FN b<y>c*PEEK y+PEEK <y+l> 

9960 GO SUB 9993: GO SUB 9988 

9961 REM 

9962 REM 

9963 LET r*«"" : LET 1-USR Ru/n 

9964 IF i-nl THEN GO TO 9970 

9965 LET r*=rSi+STR* i 

9966 FOR l»i + l TO 1+4 

9967 LET r*«r*+CHR* PEEK 1 

9968 NEXT l 

9969 LET i-USR Hext; GO TO 9964 

9970 GO SUB 9989 

9971 LET y-FN «<x? 
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9972 LET lim»FN b<y> 

9973 IF llnea>-lf THEN BEEP .2,30: LIST 
; STOP 

9974 LET luno-FN *<y+2> 

9975 FOR i-1 TO LEM r* STEP 9 

9976 IF VAL r*< i+5 TO i+6)OUne* THEN 
GO TO 9979 

9977 IF lin#*<lf THEN GO SUB 9983 

9978 REM 

9979 NEXT i; IF Unea>-lf THEN GO TO 99 
82 

9980 GO SUB 9991 

9981 PQKE y, hi : POKE y+l,low: LET init»i 
riit+*t«p 

9982 LET y-y+lums+4: GO TO 9972 

9993 LET «*=STR* init: LET h-VAL r*<i TO 
i+4 > 

9984 LET z=4-LEN a*: IF z THEN LET «*=z 
*< TO *>+*• 

9985 FOR j-1 TO 4: POKE h+.J,CODE a*< J > : 

NEXT J 

9986 GO SUB 9991: POKE h+8,low: POKE h+9 
,hi ; RETURN 

9987 CLS : PRINT HT 11,13; FLASH l;"Test 
": RETURN 

9989 PRINT RT 11,10; FLASH l;"Fitid TOKEN 
": RETURN 

9989 PRINT AT 11,9; FLASH l;"Rimwtr«io 
n*": RETURN 
9998 REM 

9991 LET hi-INT <init^c>: LET low-init-c 
#hi: RETURN 

9992 LET Next-32000: LET Run-N*xt+5: RETURN 

9993 LET y-FN «<x>: LET h»init 

9994 LET linea=FN b<y): LET y»y+FN aX y+2 
)+4 

9995 IF h>=lf OR h>=nl THEN RANDOMIZE U 
SR 10379 

9996 IF lin«*>«lf OR lineaX-nl THEN RETURN 

9997 LET h-h+step: GO TO 9994 

9998 REM 

9999 RANDOMIZE 9950+9999#lJSR <N*xt+191> 
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FIND TOKEN 


Questa routine è usata dal programma Basic RENUMBER e serve a trova¬ 
re tutti quei comandi che prevedono come argomento un numero di linea a 4 
digit (esempio: GOSUB 0005, GOTO 1129, ecc..), non un numero calcolato 
(esempio: GOSUB 10*a). restituendo al programma Basic che la gestisce, 
il relativo indirizzo in RAM. 

I comandi intercettati sono: 

Comando Codice Comando Codice 

GOTO EC LINE CA 

GOSUB ED LIST F0 

RESTORE E5 LLIST E1 

RUN F7 REM EA 

REM è un caso anomalo: quando viene incontrato si salta ad esaminare la 
linea successiva. 

Commento al listato assembler: 

LINEE da 240 a 400: 

Vi sono due punti di ingresso. Quello siglato INIT serve al momento di lan¬ 
ciare la routine, mentre quello siglato CONT serve per le elaborazioni suc¬ 
cessive. 

All'indirizzo NEXT vi si accede quando si desidera analizzare una nuova li¬ 
nea Basic. In tal caso se ne confronta il numero con quello da noi stabilito 
(9950 in questa applicazione) ritornando al Basic se il confronto ha succes¬ 
so o se è superiore, altrimenti si carica il numero della linea in esame e lo si 
salva in una zona di RAM. 

La fase successiva é quella di prelevare un carattere dalla linea confron¬ 
tarlo con il codice EA (=REM) e se è cosi si passa alla linea successiva altri¬ 
menti si prosegue al confronto degli altri codici. 

LINEE da 410 a 580: 

Se uno di questi confronti ha successo, significa che è presente un co¬ 
mando tra quelli da cercare, altrimenti si passa al prossimo carattere e alla 
prossima linea. 
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LINEE DA 590 a 730: 

Qui si esamina il carattere successivo al comando intercettato per vedere 
se esso è un digit (un carattere tra 0 e 9). Se cosi è si passa alla fase di 
TEST, altrimenti si salta alla routine di errore o alla prossima linea. 

LINEE da 740 a 980: 

Fase di TEST. Dopo il byte del comando ci deve essere un numero a 4 di¬ 
git e nient'altro dopo di esso (esempio: potremmo avere a che fare con un 
GOTO 1000*a). Inoltre questo numero deve far riferimento ad una linea ef¬ 
fettiva esistente. 

È noto che lo Spectrum accetta comandi del tipo GOSUB 0120, anche 
se la linea 120 non esiste: l'elaborazione prosegue infatti con la linea suc¬ 
cessiva. 

Per correttezza ho preferito che ogni riferimento lo si facesse a linee esi¬ 
stenti e con numero non superiore a 9950. 

LINEE da 990 a 1200: 

Routine di errore. Si stampa la linea da correggere emettendo un "beep” 
di avvertimento. 

7000 0000 ORG 32000 


18BC 

18BR 

18B6 

196E 

169R 

1980 

186E 

1601 

03B5 


5B00 

5B02 

5B04 


0020 j "Routine" 
0030 j "Sistema" 
0040 ; 

0050 INC3 EQU 18BCH 
0060 INC5 EQU 18BRH 
0070 INCP EQU 18B6H 
0080 FINO EQU 196EH 
0090 LINU EQU 169RH 
0100 CPLN EQU 1980H 
0110 PRIL EQU 186EH 
0120 OPEN EQU 1601H 
0130 BEEP EQU 03B5H 
0140 

0150 ; "Variab." 
0160 ; 

0170 RDOL EQU 5B00H 
0180 LINE EQU 5B02H 
0190 EROR EQU 5B04H 
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5C53 0200 PROG EQU 5C53H 

5C5F 0210 XPTR EQU 5C5FH 

26DE 0220 MRXL EQU 9950 

0230 i 

7D00 2R005B 0240 CONT LD HL,< RDDL ) 

7D03 1914 0250 JR CHRR 

7D05 2R535C 0260 IN IT LD HLAPRQG) 

7D00 01DE26 0270 NEXT LD BC,MRXL 

7D0B CD8019 0280 CfìLL CPLN 

7D0E D0 0290 RET NC 

7D0F CD9R16 0300 CRLL LIHU 

7D12 ED53025B 0310 LD < LINE DE 

7D16 CDBC18 0320 CRLL INC3 

7D19 7E 0330 CHRR LD RAHL) 

7D1R CDB610 0340 CRLL INCP 

7D1D FEER 0350 CP 0ERH 

7D1F 2009 0360 JR NZ,GO 

7D21 2R025B 0370 LD HL,< LINE > 

7D24 23 0300 INC HL 

7D25 CD6E19 0390 CRLL FIND 

7D20 16DE 0400 JR NEXT 

7D2R FEEC 0410 GD CP 0ECH 

7D2C 281F 0420 JR Z,DIGI 

7D2E FEED 0430 CP 0EDH 

7D30 281B 0440 JR Z,DIGI 

7D32 FEE5 0450 CP 0E5H 

7D34 2017 0460 JR Z,DIGI 

7D36 FEF7 0470 CP 0F7H 

7D38 2013 0480 JR Z,DIGI 

7D3R FECR 0490 CP 0CRH 

7D3C 200F 0500 JR Z,DIGI 

7D3E FEF0 0510 CP 0F0H 

7D40 200B 0520 JR Z,DIGI 

7D42 FEE1 0530 CP 0E1H 

7D44 2807 0540 JR Z.DIGI 

7D46 23 0550 INCR INC HL 

7D47 FE0D 0560 CP 0DH 

7D49 28BD 0570 JR Z.NEXT 


7D4B 18CC 0580 JR CHRR 

7D4D 23 0590 DIGI INC HL 

7D4E 7E 0600 LD flj < HL > 

7D4F FE0D 0610 CP 0DH 

7D51 28F3 0620 JR Z ,INCR 


33 



7D53 2B 
7D54 FE3R 
7D56 360E 
7DS8 7E 
7059 FECfl 
7D5B 28E9 
7D5D 23 
7D5E 22005B 
7D61 E5 
7062 1831 
7D64 189R 
7066 E5 
7D67 CDBR18 
7D6R CDB618 
7D6D 22005B 
7070 2023 
7D72 FE3R 
7D74 2804 
7076 FE0D 
7078 28 1B 
7D7H 2B 
7D7B 2B 
7D7C 7E 
7D7D 2B 
70 7E 6E 
7D7F 67 
7D80 CD6E19 
7D83 2010 
7085 01DE26 
7088 CO8019 
708B 3008 
7080 CI 
7D8E 3R045B 

7091 R7 

7092 2000 

7094 C9 

7095 3E02 
7097 32045B 
7D9R CO0116 
7090 E1 
7D9E 09 
709F E5 
7OR0 09 


0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 GOTO 

0749 TEST 

0750 

0760 

@770 

0780 

0790 


0820 
0830 ON 
0840 
0850 
0868 


0890 

0900 

0910 

0920 

0930 


0970 

0980 

0998 ERRR 
1000 
1010 
1020 
1030 
1040 
1050 


OEC HL 
CP 3RH 
JR C,TEST 
LO Rj < HL > 

CP 0CRH 
JR Z ,INCR 
INC HL 

LO < ROOL , HL 
PIJSH HL 
JR ERRR 
JR CONT 
PU8H HL 
CRLL INC5 
CRLL INCP 
LO < ROOL ),HL 
JR NZj ERRR 
CP 3RH 
JR Zj ON 
CP 0OH 
JR NZj ERRR 
OEC HL 
OEC HL 
LO Rj < HL ) 

OEC HL 
LO L,<HL> 

LD H,R 
CRLL FINO 
JR NZj ERRR 
LO BC,MRXL 
CRLL CPLN 
JR NCj ERRR 
POP BC 
LD R,<EROR> 
RHD R 

JR NZ,GOTO 
RET 

LO fl, 2 
LO < EROR ),R 
CRLL OPEN 
POP HL 
EX.X 

PIJSH HL 

EXX 
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7DR1 23 
7DR2 225F5C 
7DR5 2R025B 
7DR8 CD6E19 
7DRB 1623 
7DRD CD6E18 
7DB0 D7 
7DB1 D9 
7DB2 E1 
7DB3 D9 
7DB4 111000 
7DB7 2130IR 
7DBR CDB503 
7DBD 18R5 

BELL 7DB4 
ERRR 7D95 
ON 7D7R 

TEST 7D66 
GOTO 7D64 
DICI 7D4D 
IHCR 7D46 
GO 7D2R 

CHRR 7D19 
NEXT 7D08 
INIT 7D05 
CONT 7D00 
MRXL 26DE 
XPTR 5C5F 
PROG 5C53 
EROR 5B04 
LINE 5B02 
RDDL 5B00 
BEEP 03B5 
OPEN 1601 
PRIL 186E 
CPLN 1980 
LINU 169R 
FIND 196E 
INCP 18B6 
INC5 18BR 
INC3 18BC 
4 6062 


1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 BELL 
1170 
1180 
1190 
1208 


INC HL 

LD <. XPTR >. HL 
LD HL.< LINE > 
CRLL FINO 
LD D,"#" 

CRLL PRIL 
RST 10H 
EXX 

POP HL 
EXX 

LD DE.16 
LD HL.1R90H 
CRLL BEEP 
JR GOTO 
END 
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AUTONUMBER 


Quello che segue è il listato del programma AUTONUMBER. 

Serve per avere automaticamente il numero di linea sullo schermo quan¬ 
do si introduce un programma Basic. 

Per utilizzare il programma basta eseguire questa istruzione: 

RANDOMIZE USR 32341 

Da questo momento in poi ogni volta che si preme il tasto RETURN, com¬ 
parirà in basso il numero di linea successiva con incrementi di 10. 

In ogni momento si può cambiare il numero della linea che ci viene stam¬ 
pata semplicemente cancellando tale numero e introducendo quello deside- 

L'incremento è fissato in 10, ma è possibile modificarlo con un POKE 
32507,1 dove ^incremento (dal listato assembler si vede facilmente ove 
questa modifica può essere fatta: LINEA 550 ove si carica il registro DE con 
il numero OOOA che è l'incremento uguale a 10). 

Per togliere l'auto digitare il seguente comando: 

RANDOMIZE USR 32334 

Se il numero di linea eccede 9999, due punti ':' verranno stampati al posto 
del primo digit impedendo l'introduzione della linea. 

La gestione dell'AUTONUMBER è stata messa sotto la routine d’interrupt. 

Un'occhiata al listato assembler può dare un'idea di come ciò sia possibi- 


<000 REM COMANDI 

1010 REM RANDOMIZE USR 32341 

1020 REM PER INIZIARE AUTO 

1030 REM 

1040 REM RANDOMIZE USR 32334 
1050 REM PER ELIMINARE AUTO 
9000 REM 

9005 REM HEX-CODE Caricatore 
9010 REM 

9030 CLEAR 32333: LET a=32334 
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9835 

9040 

9045 

9050 

9055 

9060 

9065 

9070 

9075 

9080 

9085 

9890 

9095 

9100 


9115 

9120 

9125 

9130 

9135 

9140 

9145 

9150 

9135 

9160 

9165 

9170 

9175 

9180 

9185 

9190 

9195 

9200 

9205 

9210 

9215 

9220 

9225 

9230 

9235 

9240 

9245 


RERD a* 

IF a*-"#*" THEN STOP 
LET h-CGDE a*<1>-48 
LET h=h-7#< a*<1>>"8"> 

LET l=CQDE a*<2>-48 
LET l = l-7*<a*<2>>"0 "> 
POKE «,16#h+l: LET «-«+1 
GO TO 9035 
REM 

REM DATI PROGRAMMA L.M. 
REM 

REM SUB AUTONUMBER 
REM 

DATA " 3E " , " 3F " , " ED 11 , " 47 " 
DATA "ED","56","C9","3E" 
DATA "28","ED","47","ED" 
DATA "5E", "09","FF","F3" 
DATA "F5",“C5","D5","E5" 
DATA "3A","DD","7E","A7" 
DATA "20","24","3A","82" 
DATA "5C","FE","20","20" 
DATA " 4F "," 3A "," 83 ","5C" 
DATA "FE","17","20","48" 
DATA "3A","08","5C","FE" 
DATA "0C","28","41","3A" 
DATA "04","5C","FE","0D" 
DATA "28","03","3C","20" 
DATA "37","3E","04","32" 
DATA "DD","7E","3A","DD" 
DATA "7E","3D","32","DD" 
REM 

REM SECONDA PARTE 
REM 

DATA "7E","2A","49","5C" 
DATA "11","0A","00","19" 
DATA "01","18","FC","CD" 
DATA "C4","7E","FE","03" 
DATA "28","1A","01","9C" 
DATA "FF","CD","C4","7E" 
DATA "FE","02","28","10" 
DATA "01","F6","FF","CD" 
DATA "C4","7E","FE","01" 
DATA "28","06","01","FF" 


37 



9250 DRTR 
9255 DRTR 
9260 DRTft 
9265 DRTR 
9270 DRTR 
9275 DRTR 
9280 DRTR 
9285 DRTR 
9290 DRTR 


"FF","CD", 
"El",“DI", 
"FB","C9", 
"3C","38", 
"42","3D", 
"32","08", 
"3B","5C", 
"32","3B", 
"DD","7E", 


"C4","7E 1 
"CI","FI' 
"RF","09‘ 
"FC","ED 1 
"C6","30' 
"5C","3R 1 
"CB","EF' 
"5C","3R 1 
"C9", 


ASS. AUTONUMBER 


Per capire come funziona questa routine di AUTONUMBER occorre pre¬ 
mettere qualche informazione su come si gestiscono gli interrupts masche¬ 
ragli con lo Z-80. 

Ogni volta che si richiede un interrupt (IRQ), lo Z-80 risponde in accordo 
con l'IM (interrupt mode) che gli è stato imposto. 

Nel modo IM 1, lo Z-80 risponde all’IRQ eseguendo la routine posta in me¬ 
moria (ROM oppure RAM) a partire dall'Indirizzo esadecimale 0038H (56 in 
decimale). 

I modi IM 0 e IM 2 sono strettamente collegati alla gestione degli IRQ da 
parte di dispositivi Hardware esterni e vengono detti interrupt vettorizzati. 

Vettorizzati significa che in qualche modo bisogna costruirsi un indirizzo a 
16 bit a cui fare riferimento. 

Nel modo IM 2 si fa riferimento a delle tabelle il cui indirizzo in memoria è 
generato dalla combinazione di due dati: 

II primo è contenuto nel registro I (interrupt register), parte alta dell'indi- 

II secondo è fornito dalla periferica stessa ed è la parte bassa dell'indiriz- 

A questo punto lo Z-80 carica nel PC (program counter) i due byte suc¬ 
cessivi posti al suddetto indirizzo e serve l'interrupt. 

Nel modo IM 0 avviene qualcosa di simile con la differenza che la periferi¬ 
ca pone sul bus dei dati un valore che in generale é uno dei possibili 8 codici 
di restart in pagina zero. 
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Di questi tre tipi lo Spectrum pare utilizzare quello che è chiamato modo 1 
(IM 1). 

Con un piccolo trucco è possibile far funzionare lo Spectrum nel modo 
IM 2. 

Infatti la periferica che dovrebbe fornire il byte basso dell'indirizzo della 
tabella non esiste, per cui tale byte è sempre posto uguale a OFFH (255 in 
decimale). 

Basta a questo punto caricare il registro I con un valore, nel nostro caso 
28H, per costringere il computer a cercare all'indirizzo 28FFH i dati da cari¬ 
care nel program counter. 

All'indirizzo 28FFH (che è in ROM) e successivo vi sono questi numeri 5C 
7E che sono proprio l’indirizzo da cui parte la nostra routine di autonumber. 

Commento: 

LINEE da 210 a 240: 

Sono due subroutine che predispongono i due modi di interrupt, rispettiva¬ 
mente IM 1 e IM 2. 

LINEE da 260 a 480: 

Si esegue la normale routine di interrupt e si inizia quella di autonumber 
dopo aver salvato i registri, controllato lo spazio nel buffer di editing e testato 
il tasto premuto che deve essere un carriage return (ODH) per dare inizio al¬ 
la numerazione automatica. 

LINEE da 490 a 760: 

Il numero che vogliamo stampare è di 4 digit e con questo si inizializza la 
variabile RAM. 

In base all'ultimo numero stampato (contenuto in LNUM) si calcola quello 
nuovo secondo l’incremento nel registro DE (linea 550). 

Si stampa il numero richiamando 4 volte la subroutine ASCI, si ripristinano 

LINEE DA 780 a 920: 

Questa è la subroutine ASCI che in base ai valori contenuti nei registri HL 
e BC fornisce ogni volta l'esatto digit da stampare. 

Questo una volta determinato occorre stamparlo e ciò viene fatto memoriz¬ 
zandolo nella variabile LKEY e simulando la pressione del relativo tasto set- 
tando il bit 5 della variabile FLAG. 
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7 E4E 0000 ORG 7E4EH 

0010 } 

0020 ; "Routine" 

0030 ; "Sistema" 

0040 j 

0038 0050 IRQ EQU 0038H 

0060 ; 

0070 ; "Variab." 

0080 ; 

5004 0090 KEYD EQU 5C04H 

5C08 0100 LKEV EQU 5C08H 

5C3B 0110 FLFlG EQU 5C3BH 

5C49 0120 LNUM EQU 5C49H 

5082 0130 CQLN EQU 5C82H 

5083 0140 LINE EQU 5C83H 

0150 ; 

7E4E 3E3F 0160 INT1 LD A..3FH 

7E50 ED47 0170 LD I,R 

7E52 ED56 0180 IMI 

7E54 09 0130 RET 

0200 ; 

7E55 3E28 0210 INT2 LD fi,28H 

7E57 ED47 0220 LD I.A 

7E59 ED5E 0230 IM2 

7E5B 09 0240 RET 

0250 ; 

7E5C FF 0260 INIT RST IRQ 

7E5D F3 0270 DI 

7E5E F5 0280 PUSH RF 

7E5F 05 0290 PUSH BC 

7E60 D5 0300 PUSH DE 

7E61 E5 0310 PUSH HL 

7E62 3RDD7E 0320 LD R , (. RAM ) 

7E65 R7 0330 RND R 

7E66 2024 @340 JR NZ,LB8 

7E68 3R825C @350 LD RACOLN) 

7E6B FE20 0360 CP 20H 

7E6D 204F 0370 JR NZ,OUT 

7E6F 3R835C 0380 LD fl,<LINE> 

7E72 FE17 0390 CP 17H 

7E74 2048 0400 JR NZ,OUT 

7E76 3R085C 0410 LD R.CLKEY) 

7E79 FE0C 0420 CP 0CH 





7E7B 2841 
7E7D 3R845C 
7E80 FE0D 
7E82 2803 
7E84 3C 
7E85 2037 
7E87 3E04 
7E89 32DD7E 
7E8C 3RDD7E 
7E8F 3D 
7E90 32DD7E 
7E93 2A495C 
7E96 110R00 
7E99 19 
7E9R 0118FC 
7E9D CDC47E 
7ER0 FE03 
7ER2 28IR 
7ER4 019CFF 
7ER7 CDC47E 
7ERA FE02 
7ERC 2810 
7ERE 01F6FF 
7EB1 CDC47E 
7EB4 FE01 
7EB6 2806 
7EB8 01FFFF 
7EBB CDC47E 
7EBE E1 
7EBF DI 
7EC0 CI 
7EC1 FI 
7EC2 FB 
7EC3 C9 

7EC4 RF 
7EC5 09 
7EC6 3C 
7EC7 38FC 
7EC9 ED42 
7ECB 3D 
7ECC C630 
7ECE 32085C 


0430 
0440 
0450 
0460 
0470 
0480 
0490 LB1 
0500 
0510 LB0 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 

0710 OUT 
0720 
0730 
0740 
0750 
0760 
0770 ; 
0780 RSCI 
0790 SOM 
0800 
0810 


0840 

0850 


JR Z,OUT 
LD fl,<KEYD> 
CP 0DH 
JR 2,LB1 
INC A 
JR NZ,OUT 
LD R, 04H 
LD < RAM >, fì 
LD A, < RAM > 

DEC R 

LD < RRM >j fl 

LD HL, < LNUM ') 
LD DE,0RH 
HDD HL,DE 
LD BC,64536 
CRLL ASCI 
CP 03H 
JR Z,OUT 

LD BC,65436 

CRLL ASCI 
CP 02H 
JR Z,OUT 

LD BC,65526 
CRLL ASCI 
CP 01H 
JR Z,OUT 
LD BC,65535 
CRLL ASCI 
POP HL 
POP DE 
POP BC 
POP RF 
E1 
RET 

XOR A 
RDD HL,BC 
INC A 
JR C,SOM 
SBC HL,BC 
DEC R 
RDD 30H 
LD < LKEY >,A 



7ED1 3A3B5C 0860 

7ED4 CBEF 0870 

7ED6 323B5C 0880 

7ED9 3RDD7E @890 

7EDC C9 0900 

0910 

7EDD 00 0920 

0930 

RAM 7EDD 

SOM 7EC5 

ASCI 7EC4 

OUT 7EBE 

LB0 7E8C 

LB1 7E87 

INI! 7E5C 

INT2 7E55 

IHTI 7E4E 

LINE 5C63 

COLN 5C82 

LNUM 5C49 

FLRG 5C3B 

LKEY 5C08 

KEYD 5004 

IRQ 0038 

# 6062 


LD A,< FLRG > 
SET 5,fl 
LD < FLRG R 
LD R,< RRM > 
RET 

RRH DEFB 0 
END 


FILE SCANNER 


FILE SCANNER è un programma che è in grado di esaminare un file re¬ 
gistrato su nastro e stabilirne la natura, la lunghezza e in generale è in grado 
di dare informazioni aggiuntive proprio in base al tipo di file che si sta trat- 

II cuore di tutto sta in quei pochi dati nelle due linee di DATA in fondo al 
programma. Nel loro insieme realizzano una piccola routine in L/M che di o- 
gni file carica solo la prima parte, l'HEADER. 

Questo contiene tutte le informazioni circa il tipo, cioè se si tratta di un 
programma BASIC, un file binario, dati di un array alfanumerico e cosi via. 
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Di un programma in BASIC è in grado di stabilire la lunghezza totale, la 
lunghezza occupata dalle variabili, l'eventuale linea di autorun. 

Di un programma in L/M è possibile conoscere la locazione iniziale e 
sempre la sua lunghezza. 

Di un array alfanumerico/numerico è in grado di dare la sua dimensione e 
il nome della variabile associata. 


1000 BORDER 1: IHK 7: PAPER 1 

1005 LET 0=23296: LET P-c+14 

1010 LET q*19: CLS 

1015 FOR i-c TO c+17 

1020 POKE ij 0 : NEXT i 

1025 FOR i=P TO p+11: READ d 

1030 POKE iid: NEXT i 

1035 RAHDQMIZE USR P 

1@40 LET t-PEEK c: LET d=PEEK <c+14> 

1045 LET lu-256*PEEK <c+12>+PEEK <c+ll> 

1050 LET ln-256#PEEK <c+14>+PEEK <c+13> 

1055 LET vr-256*PEEK <c+16>+PEEK <c+15> 

1060 IF t-0 THEN PRINT "Program";TAB 16 
;":";TAB q; 

1065 IF t-1 THEN PRINT "Character Array 
:"jTAB q; 


1070 IF t-2 THEN PRINT "Nurnber Array 
:";TAB q; 

1075 IF t=3 THEN PRINT "Bytes";TAB q-3; 


":";TAB q; 

1080 IF PEEK <c+l)«255 THEN GO TO 1095 
1085 FOR i=c+l TO c+10 
1090 PRINT CHR* PEEK ij: NEXT i 
1095 PRINT 

1100 IF t-0 THEN PRINT "Linea Autorun 
:";TAB q;: IF ln>»le4 THEN PRINT FLAS 
H 1;"NESSUNA"; GO TO 1120 
1105 IF t-0 THEN PRINT In 
1110 IF t®3 THEN PRINT "Locazione inizi 
o: "j TAB qjIn 

1115 IF t-2 OR t-1 THEN PRINT "Variabil 
e array : " ; CHR* <d-<192 AND t-2>-<128 A 
ND t=l>+96>+<AND t-2>+"<>" 

1120 PRINT "Lunghezza file ; "TAB q.; lu; 
TAB 25 ; "Bytes" 
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1125 IF t m S THEN PRINT "Lunghezza Var. 

:";TPB q;lu-vr-;TRB 25;"Bytes" 

1130 DRTR 17,17,0,175,55,221 
1135 DRTR 33,8,91,195,06,05 


DETECT 1.0 


Questo programma, mi si permetta l'immodestia, è quello che fra tutti ri¬ 
tengo il più utile e meglio realizzato. Come sempre però, ciascuno secondo 
le proprie esigenze può apportare le modifiche necessarie basandosi sul li¬ 
stato assembler. 

Ma veniamo al dunque. A cosa serve? 

Serve a due cose: 

1) a fare il backup dei programmi prelevandoli da una cassetta e registran¬ 
doli su un'altra tramite computer. Per dirla in parole povere serve per fa¬ 
re la copia dei programmi che con i metodi tradizionali non si riescono a 
duplicare. 

Attenzione: 

Come sempre le copie che si ottengono devono essere realizzate per pro¬ 
prio uso e non a fini poco leciti, quali la rivendita, e ciò per i noti motivi di co¬ 
pyright. 

2) il secondo uso è quello di rivelare l'inizio e la lunghezza dei file binari, la 
lunghezza e la linea di autorun dei programmi Basic, e le caratteristiche 
dei file contenenti array alfanumerici. 


Con tale programma scritto in linguaggio macchina si possono duplicare 
files di lunghezza massima di 40798 (9F5E H) bytes. È evidente che tale 
programma è utilizzabile su uno Spectrum 48k. 

Tuttavia nelle pagine di questo libro è presentato un programma di pochi 
byte che può essere adattato ad uno Spectrum 16k con ovvie limitazioni di 
spazio. 
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Nell'insieme DETECT 1.0 si compone di due parti: 

1 ) la prima è quella che metterà a dura prova la vostra pazienza. Si tratta 
cioè di digitare i 700 e più bytes del programma in l/M. 

Fatto questo si salva il tutto su nastro. Occorre fare molta attenzione nel 
digitare questa parte di programma poiché anche un piccolo errore può 
essere fatale ed è abbastanza oneroso controllare tutti i codici. Dato il 
RUN, il programma si ferma alla linea 9040, ciò significa che il codice 
macchina è stato memorizzato a partire dalla locazione 64798, e bisogna 
salvarlo con: 

SAVE "DETECT 1.0" CODE 64798,738 

2) in un secondo tempo basteranno 3 righe di Basic, visibili nel primo li¬ 
stato, per richiamare in memoria il codice oggetto e lanciarlo: 

3) l'uso del programma è poi molto semplice poiché esso chiederà di volta 
in volta le operazioni da compiere; 

4) il lancio del programma avviene con un RANDOMIZE USR 64798, e da 
questo momento in poi il computer aspetta il file da duplicare. 


1© IHK Si: B0RDER 7: PAPER 7 
20 CLERR 23999: LORD '"'CODE 
30 RANDOMIZE USR 64798 


9800 REM 

9005 REM HEK-CQDE C*ric*tor* 
9010 REM 

9030 CLEAR 64797: LET *.-64798 
9035 READ a* 

9040 IF a*-"**" THEN STOP 
9045 LET h-CODE *•<1>-48 
9050 LET h=h-7*< **<1>>"0"> 
9055 LET 1-CQDE *•<2>-48 
9060 LET l»l-7#< **< 2 »"«"> 
9065 P0KE *,16*1-1+1: LET *-*+1 
9070 GO TO 9035 
9075 REM 

9080 REM DATI PROGRAMMA L.M. 
9085 REM 
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DETECT 1.0 BACKUP 


9090 REM 
9095 REM 
9100 DATA 
9105 DATA 
9110 DATA 
9115 DATA 
9120 DATA 
9125 DATA 
9130 DATA 
9135 DATA 
9140 DATA 
9145 DATA 
9150 DATA 
9155 DATA 
9160 DATA 
9165 DATA 
9170 DATA 
9175 DATA 
9180 DATA 
9185 REM 
9190 REM 
9195 REM 
9200 DATA 
9205 DATA 
9210 DATA 
9215 DATA 
9220 DATA 
9225 DATA 
9230 DATA 
9235 DATA 
9240 DATA 
9245 DATA 
9250 DATA 
9255 DATA 
9260 DATA 
9265 DATA 
9270 DATA 
9270 DATA 
9275 DATA 
9280 DATA 
9285 REM 
9290 REM 
9295 REM 


"CD","28","FE","3E","06","CD" 
"47","FE","AF","37","DD","21" 
"00". "5B", "11". "11"., "00". "CD" 
"56"."05","30"."EA"."3E"."0A" 
"CD"."47"."FE"."11"."01"."5B" 
"1A"."FE"."FF"."28"."06"."01" 
"0A"."00"."CD"."3C"."20"."AF" 
"CD"."47"."FE"."3E"."11"."D7" 
"3A"."00","5B"."F5"."D7"."FI" 
"F5"."11"."A2","09"."CD"."0A" 
"0C"."3E"."05"."CD"."47","FE" 
"3E"."01"."CD"."47"."FE"."ED" 
"4B"."0B","5B"."3E"."0A"."CD" 
"DI".“FD","FI"."FE"."00"."20" 
"14"."3E"."02"."CD"."47"."FE" 
"ED"."4B"."0D"."5B"."CB"."78" 
"28","12“."3E"."04"."C4"."47" 

DETECT SECONDA PARTE 

"FE"."18"."10","FE"."03"."20" 
"0C"."CD"."47"."FE"."ED"."4B" 
"0D"."5B"."3E"."0D"."CD"."DI" 
"FD","CD"."39"."FE"."DD"."21" 
"C0"."5D"."3E"."FF"."37"."CD" 
“56","05"."30"."FI"."3E"."07" 
"CD"."FC"."FD"."3E"."0B"."CD" 
"4C"."FE"."AF"."CD"."62"."FE" 
"3E"."08"."CD","FC"."FD"."FE" 
"6C"."CA"."1E"."FD","FE"."73" 
"28","E9","FE","76"."CC","60" 
"FE","CD","30","FE","3E","0C" 
"CD","FC","FD","18","E3","C5" 
"F5","CD","2B","2D","CD","32" 
"20","3E","16","D7","FI", "D7" 
"20","3E","16","D7","FI","D7" 
"3E","1C","D7","CI","78","CD" 
„E7"."FD","79","F5","1F","1F" 

DETECT TERZA PARTE 
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3300 DATA "1F","1F","CD","F0","FD","FI" 
9305 DATA "E6","0F","C6","30","FÉ","3A" 
9310 DATA “38","02","C6","07","D7","C9" 
9315 DATA "CD","1A","FE","FD","CB","01" 
9320 DATA "AE",“CD","4C","FE","06","19" 
9325 DATA "76","10","FD","FD","CB","01" 
9330 DATA "6E","28","F2","CD","1A","FE" 
9335 DATA "SA","08","5C","F6","20","C9" 
9340 DATA "01","07","07","F5","C5","41" 
9345 DATA "CD","00","0E","CI","10","F8“ 
9350 DATA "FI","C9","CD","6B","@D","3E" 
9355 DATA "09","CD","47","FE","21","B0" 
9360 DATA "00","11","20","00","C3","B5" 
9365 DATA "03", "21" , "5E","9F", "ED","5B" 
9370 DATA "0B","5B","A7","ED","52","D0" 
9375 DATA "CI","18","E9","F5","CD","30" 
3388 DATA "FE","FI","F5","CD","58","FE" 
9385 REM 

9390 REM DETECT QUARTA PARTE 
9395 REM 

9400 DATA "11","6F", "FE","CD","0fl","0C" 
9405 DATA "FI ","C9","F5","3E","02","CD" 
9410 DATA "01","16","FI","C9","3E","02" 
9415 DATA "32","74","5C","DD","21","00" 
9420 DATA "5B","21","C0","5D","C3","5A" 
9425 DATA "07","80","16","05","00","11" 
9430 DATA "06","52","65","67","69","73" 
3435 DATA "74","72","61","74","6F","20" 
9440 DATA "63","6F","6D","65","20","46" 
9445 DATA "69","6C","65","20","64","69" 
9450 DATA "20","54","49","50","4F","20" 
9455 DATA "2D","3E","20","8D","16","0A" 
9460 DATA "00","11","04","4C","75","6E" 
9465 DATA "67","68","65","7A","7A","61" 
9470 DATA "20","46","49","4C","45","20" 
3475 DATA "2D","20","3D","A0","11","03" 
9480 DATA "16","0D","00","4C","69","6E" 
9485 REM 

9490 REM DETECT QUINTA PARTE 
9435 REM 

9500 DATA "65","61","20", "41","75","74" 
9505 DATA “6F","20","45","78","65","63" 
9510 DATA "2D","20","3D","A0","11","03" 
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9515 DRTR 
9520 DRTR 
9525 DRTR 
9530 DRTR 
9535 DRTR 
9540 DRTR 
9545 DRTR 
9550 DRTR 
9555 DRTR 
9560 DRTR 
9565 DRTR 
9570 DRTR 
9575 DRTR 
9500 DRTR 


9595 REM 
9600 DRTR 
9605 DRTR 
9610 DRTR 
9615 DRTR 
9620 DRTR 
9625 DRTR 
9630 DRTR 
9635 DRTR 
9640 DRTR 
9645 DRTR 
9650 DRTR 
9655 DRTR 
9660 DRTR 
9665 DRTR 
9670 DRTR 
9675 DRTR 
9690 DRTR 
9685 REM 
9690 REM 
9695 REM 
9700 DRTR 
9705 DRTR 
9710 DRTR 
9715 DRTR 
9720 DRTR 
9725 DRTR 


"16","0D","00","4C","6F","63" 
"61","7R","69","6F","6E","65" 
"20","49","6E","69","7R","69" 
"6F","20","3D","R0","11","00" 
"12","01","4E","45","53","53" 
"55"j" 4E","41","R0","16","08" 
"13","11","02","44","65","63" 
"3R" , "44", "41 ", "54'■, "49", "3fl" 
"48","65","78","R0","16","10" 
"00","12","01","11","04","2fl" 
"43","61","72","69","63","61" 
"6D","65","6E","74","6F","20" 
"65","20","52","69","6C","6F" 
"63","61","7fl","69","6F","6E" 

DETECT SESTR PRRTE 

"65","20","46","49","4C","45" 
"Rfl","16","10","00","11","05" 
"15","01","2D","53","6F","73" 
"74","69","74","75","69","73" 
"63","69","20","6C","61","20" 
"63","61","73","73","65","74" 
"74","61","20","2D","2D" , "2D" 
"2D","2D","2D","RD","16","10" 
"00","11","06","15","01","56" 
"65","72","69","66","79","20" 
"2R","2R","20","53","61","76" 
"65","20","2R","2R","20","4C" 
"6F","61","64","20", "3F","20" 
"20","56","2F","53","2F","4C" 
"R0","12","01","11","02","3C" 
"3C","44","45","54","45","43" 
"54","20","42","61","63","6B" 

DETECT SETTIMR PARTE 

"75","70","2fl","20","56","20" 
"31","2E","30","20","30","39" 
"2F","31","39","38","33","3E" 
"3E","14","01","11","03","53" 
"69","73","74","65","6D","61" 
"20","64","69","20","42","41" 
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9730 DRTR “43","4B","55","50","20","64" 
9735 DRTR "65","69"."20","46","49","4C" 
9740 DRTR "45","53","20","2D"-"2B","2D" 
9745 DRTR "RB","16","03","06","11"i"05" 
9750 DRTR "12","@1","50","52","4F","47" 
9755 DRTR "52","41","4D","4D","41","12" 
9760 DRTR "00","3R","11","06","R0","16" 
9765 DRTR "10","00","11","02","12","01" 
9770 DRTR "53","61","6C","76","61","74" 
9775 DRTR "61","67","67","69","6F","20" 
9780 DRTR "46","49","4C","45","20","52" 
9785 REM 

9790 REM DETECT OTTRVfl PRRTE 
9795 REM 

9800 DRTR "69","6C","6F","63","61","74" 
9805 DRTR "6F","2E","2E","2E" , "2E","2E" 
9810 DRTR "2E","RE","16"."10","0E","15" 
9815 DRTR "01","4F","2E","6B","RE","00" 
9820 DRTR "##" 


ASS. DETECT 1.0 


Questo è il listato assembler del programma di backup DETECT 1.0. È 
molto lungo per cui potrebbe essere noioso commentarlo linea per linea. 
Tuttavia nel listato ogni gruppo di istruzioni è preceduto da un breve com¬ 
mento per indicare ciò che esse fanno. 


Vorrei invece soffermarmi sulle subroutlne della ROM utilizzate. Esse so¬ 
no elencate nelle prime righe del listato assembler come routine di sistema e 


0D6B CLS Clear screen, pulisce il video. 

0E00 SCLL Serali: il registro B dello Z-80 contiene il numero di linee che 
dal basso si vogliono far "Scrollare” verso l'alto. 

03B5 BELL In base al contenuto dei registri HL e DE si emette un suono. 
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0556 LOAD Carica DE bytes memorizzandoli dalla locazione puntata da 
IX in poi. 

04C2 SAVE Salva DE bytes a partire dalla locazione puntata da IX in poi. 

Un file registrato su cassetta si compone di due parti: 

1) una parte iniziale, 17 bytes, che contiene l'informazione sul tipo di file in 

2) una seconda parte che costituisce il programma vero e proprio. 

Per usare le due ultime subroutine. SAVE e LOAD, bisogna caricare il re¬ 
gistro A con 0 per la prima parte, e con FF esadecimale per la seconda e 
settare il flag di carry e ovviamente caricare i registri DE e IX con i valori op¬ 
portuni. 

075A TAPE È la routine di uso generale per il registratore la cui funzione 
dipende dal valore contenuto nella variabile di sistema TADD 
(5C74 H) e cioè: 

TADD Funzione di TAPE 
0 SAVE 

1 LOAD 

2 VERIFY 

3 MERGE 

In ogni caso i registri HL e IX devono essere caricati prima di accedere a 
TAPE e cioè: 

- il registro HL deve puntare a una zona di RAM nella quale si andrà a cari¬ 
care il file con funzione di LOAD e MERGE, o dalla quale si prelevano i 
dati da salvare o da verificare; 

- il registro IX deve puntare a una zona di RAM che contiene gli attributi sul 
tipo di file sul quale le 4 funzioni precedenti devono operare: 

LOCAZIONE CONTENUTO 
IX+00 tipo di file 

0 = BASIC 

1 = array alfanumerico 

2 = array numerico 

3 = byte 
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IX+01 nome del file, FF se il 

IX+OA il file non ha titolo 

IX+OB lunghezza 

IX+OC file 

IX+OD numero di linea 

IX+OE se il file è Basic. Locazione da cui si deve salvare o caricare 

se il file è binario. Codice che identifica il tipo di array 

IX+OF lunghezza area variabili 

IX+10 Basic 

203C MSGG immette sul canale corrente (video, stampante...) una strin¬ 
ga di BC caratteri memorizzata all’Indirizzo DE 

OCOA STR$ questa routine scrive un messaggio sul canale selezionato 
preso da una lista posta in memoria. Per usare la routine DE 
deve contenere l'indirizzo di partenza della lista, A il numero 
del messaggio che si richiede. Ogni messaggio deve avere 
l'ultimo carattere con il bit 7 posto a uno 

2D2B STCK pone sullo stack del Basic il numero contenuto in BC 

2032 PTST scrive sul canale selezionato il contenuto di tale stack 

1601 OPEN apre il canale il cui numero è posto in A. 


FD1E 0000 QRG 0FD1EH 

0010 ; 

0020 ; "Routine" 

0030 ; "Sistema" 

0040 j 

0D6B 0050 CLS EQU 0DSBH 

0E00 0060 SCLL EQU 0E00H 

03B5 0070 BELL EQU 03B5H 

0556 0090 LOHD EQU 0556H 

075FI 0090 TFlPE EQU 075RH 

203C 0100 MSGG EQU 203CH 

0C0FI 0110 STRI* EQU 0C0RH 
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2D2B 0120 STCK EQU 2D2BH 

2032 0130 PTST EQU 2032H 

1601 0140 OPEN EQU 1601H 

0150 

0160 ; "Variati. " 

0170 ; 

5C08 0180 LFISK EQU 5C@8H 

3C74 0190 TRDD EQU 5C74H 

5B00 0208 FILE EQU 5B00H 

09R2 0210 CHR1 EQU 09R2H 

5DC0 0220 RELC EQU 24000 

0230 ; 

0240 ; "DETECT 1. 


‘"DIE CD28FE 0260 INIZ COLL CLSC 

FD21 3E06 0270 LD fl.,6 

FD23 CD47FE 0280 CFILL PR1WG 

FD26 RF 0290 XOR R 

FD27 37 0300 SCF 

FD28 DD21005B 0310 LD IX.FILE 

FD2C 111100 @320 LD DE.11H 

FD2F CD5605 0330 CRLL LQRD 

FD32 30ER 0340 JR NO.INIZ 

0350 ; 

0360 ; "MSG..PROG 

RRMMR" 

0370 ; 

FD34 3E0R 0380 LD R,10 

FD36 CD47FE 0390 CRLL PRING 

0400 ; 

0410 ; "MSG..NOME 

FILE" 

0420 .i 

FD39 11015B 0430 LD DE.FILE+1 

FD3C IR 0440 LD fl.<DE> 

FD3D FEFF 0450 CP 0FFH 

FD3F 2806 0460 JR Z.UNO 

FD41 010R00 0470 LD BC.10 

FD44 CD3C20 0480 CRLL MSGG 

0490 ; 


SSRGGIO" 


"MSG..1 ME 
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0510 ; 

FD47 RF 0520 UNO 

FD48 CD47FE 0530 

0540 j 
0550 ; 

FILE" 

0560 i 

FD4B 3E11 0570 

FD4D D7 05S0 

FD4E 3R005B 0590 

FD51 F5 0600 

FD52 D7 0610 

FD53 FI 0620 

FD54 F5 0630 

FD55 11R203 0640 

FD50 CD0R0C 0650 

0660 ; 
0670 ; 


XOR R 
CRLL PRING 


"MSG..TIPO 


LD Rj1IH 
RST 10H 
LD RAPILE) 
PUSH RF 
RST 10H 
POP RF 
PUSH RF 
LD DE,CHR1 
CRLL STR* 


"MSG..DRTI 


0680 i 

i=D5B 3E05 0690 

FD5D CD47FE 0700 

0710 ; 
0720 ; 

HEZZR" 

0730 j 

FD60 3E01 0740 

FD62 CD47FE 0750 

0760 i 
0770 ; 

.BYTES" 

0780 ; 

FD65 ED4B0B5B 0790 
BH) 

FD69 3E0R 0800 

FD6B CDD1FD 0810 



zione inizio" 

0840 

i RUTo-EXEC" 

0850 

FD6E FI 0860 


LD fl. 5 
CRLL PRING 


"MSG..LUNG 


LD R, 1 
CRLL PRING 

"PRINT NUM 

LD BCAFILE+0 

LD fl j10 
CRLL PTBC 


"MSG..Loca 
"o Linea d 


POP RF 
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F06F FE00 0870 

FD71 2014 0800 

0000 
0000 

« AUTO-EXEC" 

0010 

F073 3E02 0020 

F075 CD47FE 0030 

F078 ED4B0D5B 0040 

OH) 

FD7C CB78 0050 

FD7E 2012 0060 

0070 
0000 

UN FlUTO-EXEC" 

0000 

FO80 3E04 1000 

cr 082 C447FE 1010 

F085 1810 1020 

FD87 FE03 1030 

F069 200C 1040 

1050 
1060 

2IONE INIZIO" 

1070 

FD8B C047FE 1080 

FD8E ED4B0D5B 1000 

FD02 3E0D 1100 PBC 

FD>04 COD1FO 1110 

1120 
1130 

« LUNGHEZZA" 

1140 

F097 CD30FE 1150 
1160 
1170 

TO FILE" 

1180 

F09A 00210050 1100 

FO0E 3EFF 1200 

FDA0 37 1210 

FORI CD5605 1220 

F0FI4 30F1 1230 


CP 0 

JR NZ<BYTE 

"MSG..Line 


LO Aj 2 
CALL PRING 
LO BC,< FILE+0 

BIT 7,B 
JR Z,PBC 

"MSG..NESS 


LO Aj 4 
CALL NZ,PRING 
JR CONT 
BYTE CP 3 

JR NZ,CONT 

"MSG..LOCA 


CALL PRING 
LO BC,< FILE+0 
LD A,13 
CALL PTBC 

"TEST sull 


CONT CALL TEST 
j "CARICAMEN 


LO IX.RELC 
LO Aj 0FFH 

CALL LOAO 
JR NC.CONT 
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U CRSSETTR" 


1240 

1250 


"MSG..per 


FDR6 3E07 
FDR9 CDFCFD 


RTRGGIO FILE' 

FDRB 3E0B 
FDRD CD4CFE 


io FILE" 

FDB0 RF 
FDB1 CD62FE 


.o VERIFICR" 


ORD 

FDB4 3E09 
FDB6 CDFCFD 
FDB9 FE6C 
FDBB CR1EFD 
FDBE FE73 
FDC0 20E9 
^DCZ FE76 
FDC4 CC60FE 
FDC7 CD30FE 
FDCR 3E0C 
FDCC CDFCFD 
FDCF 16E3 


R BC in HEX" 
DECIMALE 


1260 ; 
1270 

12e@ 

1290 ; 
1300 ; 

1310 i 
1320 SRLV 
1330 
1340 ; 
1350 ; 

1360 ; 
1370 
1300 
1390 ; 
1400 ; 

1410 ; 

1420 RSK 

1430 

1440 

1450 

1460 

1470 

1400 

1490 

1500 

1510 

1520 

1530 

1540 ; 

1550 ; 

1560 

1570 ; 
1580 


FDD1 C5 1590 PTBC 


LD fl. 7 
CRLL WRIT 

"MSG..SRLV 


LD fi.11 
CRLL FRINT 

"SftlvfttJ.99 


XOR fi 
CRLL TRPS 

"MSG..SRLV 


LD fi. 0 
CRLL WRIT 
CP " I " 

JP Z.INIZ 
CP "s" 

JR Z.SRLV 
CP "v" 
CRLL Z.TRPV 
CRLL RING 
LD fi.12 
CRLL WRIT 
JR RSK 


"Sub STRMP 


PUSH BC 
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FDD2 F5 


ul lo 


STRCK" 


1600 

1610 

1620 

1630 


PUSH RF 

"PUSH BC s 


"M*fc»matic 


FDD3 C02B2D 


CONTENUTO" 

EMATICO" 


1640 

1650 

1660 

16?0 

1680 


F0D6 CD3220 


1690 

1700 

1710 

1720 


1730 

F0D9 3E16 1740 
FODB 07 1750 
FDDC FI 1760 
c OOD 07 1770 
FDDE 3E1C 1780 
FDE0 07 1790 


CflLL STCK 

"STAMPA il 
"STACK MRT 


CRLL PTST 

"THBULR2I0 


LO R, 16H 
RST 10H 
POP RF 
RST 10H 
LO R,1CH 
RST 10H 


1810 


"STAMPA BC 


F0E1 CI 
FDE2 78 
FDE3 CDE7F0 
FDE6 79 
FDE7 F5 
F0E8 1F 
FDE9 1F 
FOER 1F 
FOEB 1F 
FDEC CDF0FO 
FOEF FI 
FOF0 E60F 
F0F2 C630 
F0F4 FE3R 


1820 ; 

1830 POP BC 

1840 ESR LO R,B 

1850 CflLL CONV 

1860 LO R,C 

1870 CONV PUSH RF 

1880 RRR 

1890 RRR 

1900 RRR 

1910 RRR 

1920 CRLL NIBLE 

1930 POP RF 

1940 NIBLE RND 0FH 

1950 ROD 30H 

I960 CP 3RH 
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FDF6 3802 1870 

FDF8 C607 1980 

FDFA D7 1990 

FDFB C9 2000 

2010 
2020 


2030 

FDFC CD1AFE 2040 
FDFF FDCB01AE 2050 
FE03 CD4CFE 2060 


FE06 0619 2070 

FE08 76 2080 

-E09 10FD 2090 

FE0B FDCB016E 2100 

FE0F 28F2 2110 

FE11 CD1AFE 2120 

FE14 3A085C 2130 

FE17 F620 2140 

FE19 C9 2150 

2160 
2170 

L B Litiee" 

2180 


volte 


2190 

FE1A 010707 2200 

FE1D F5 2210 

FE1E C5 2220 

FE1F 41 2230 

FE20 CD000E 2240 

FE23 CI 2250 

FE24 10F8 2260 

FE26 FI 2270 

FE27 C9 2280 

2290 


JR 
ADD 
OUT1 RST 
REI 


WAIT CALL 
RES 

BLIHK CALL 
LD 

ALT HALT 
DJNZ 
BIT 
JR 
CALL 
LD 
OR 
RET 


SCBL LD 

PU8H 
SC PUSH 
LD 

CALL 

POP 

DJNZ 

POP 

RET 


Screen" 

FE28 CD6B0D 
FE2B 3E09 
FE2D CD47FE 
FE30 21B000 
FE33 112000 


2310 ; 

2320 CLSC CALL 
2330 LD 

2340 CALL 

2350 RING LD 
2360 LD 


Cj OLITI 
7 

10H 


"Sub W*it" 


SCBL 
5,<IY+1> 
PRINT 
B, 25 

ALT 

5,<IY+i ) 
Z,BLINK 
SCBL 

Aj < LASK > 
20H 


"Sub SCROL 


BC.0707H 

AF 


B,C 

SCLL 

BC 

SC 

AF 


"Sub Cl*«r 


CLS 
A,9 
PRING 
HL. j 00B0H 
DEj 0020H 
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JP BELL 


FE36 C3B503 2370 

2380 

2390 ; "Sub TEST" 

2400 ; 

9F5E 2410 CQST DEFL INIZ-RELC 

FE39 215E9F 2420 TEST LD HL.CQST 

FE3Q ED5B0B5B 2430 LD DE,<FILE+0 

BH > 

FE40 R7 2440 RND R 

FE41 ED52 2458 SBC HL,DE 

FE43 D0 2460 RET NC 

FE44 CI 2470 POP BC 

FE45 18E9 2480 JR RING 

2490 ; 

2500 ; "Sub PRINT 

2510 j 

C E47 F5 2528 PRING PUSH RF 

FE48 CD30FE 2530 CRLL RING 

FE4B FI 2540 POP RF 

FE4C F5 2550 PRINT PUSH RF 

FE4D CD58FE 2560 CRLL CHRN 

FE50 116FFE 2570 LD DE,CHRS 

FE53 CD0R0C 2580 CRLL STR* 

FE56 FI 2590 POP RF 

FE57 C9 2600 RET 

FE58 F5 2610 CHRN PUSH RF 

FE59 3E02 2620 LD R,2 

FE5B CD0116 2630 CRLL OPEN 

FE5E FI 2640 POP RF 

FE5F C9 2650 RET 

2660 

2670 ; "Sub SRVE 

o VERIFY" 

2680 ; 

FE60 3E02 2690 TRPV LD R,2 

FE62 32745C 2700 TRPS LD < TRDD >,fl 

FE65 DD21005B 2710 LD IX,FILE 

FE69 21C05D 2720 LD HL,RELC 

FE6C C35R07 2730 JP TRPE 

2740 ; 

2750 ; "Me«*99i" 

2760 j 
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2770 ; 

0-» 

FE6F 80 2780 CHRS DEFB 80H 

FE70 16 2790 DEFB 16H 

FE71 0500 2800 DEFW 0005H 

FE73 1106 2810 DEFW 061IH 

FE75 2820 DEFW 

o come " 

FE95 2030 DEFM "File di T 

IPO -> 11 

FE95 8D 2840 DEFB 08DH 

2850 i 


FE96 16 2860 DEFB 16H 

FE97 0000 2870 DEFW 0000H 

FE99 1104 2880 DEFW 041IH 

FE9B 2890 DEFM "Lunghezza 

FILE - »" 

FERD 00 2900 DEFB 000H 

2910 J 

2 -" 

FE0E 1103 2920 DEFW 031IH 

FEB0 16 2930 DEFB 16H 

FEB1 0D00 2940 DEFW 000DH 

FEB3 2950 DEFM "Line* Rut 

o Exec- 

FEC5 00 2960 DEFB 0R0H 

2970 ; 

3-" 

FEC6 1103 2980 DEFW 031IH 

FEC8 16 2990 DEFB 16H 

FEC9 0D00 3000 DEFW 000DH 

FECB 3010 DEFM "Locazione 

Inizio ■" 

FEDD 00 3020 DEFB 000H 

3030 ; 


4- 11 

FEDE 1100 3040 DEFW 001IH 

FEE0 1201 3050 DEFW 0112H 

FEE2 3060 DEFM "NESSUNO" 

FEE9 00 3070 DEFB 000H 
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FEEfl 16 3090 

FEEB 0013 3100 

FEED 1102 3110 

FEEF 3120 

Hex" 

FEFB R0 3130 

3140 

6-" 

FEFC 16 3150 

FEFD 1000 3160 

FEFF 1201 3170 

FF01 1104 3180 

FF'03 3190 

nto e Rii" 

FF15 3200 

FILE" 

FF22 Flfl 3210 

3228 


7-" 

FF23 16 3230 

FF24 1000 3240 

FF26 1105 3250 

FF28 1501 3260 

FF2R 3270 

sci la ca" 

FF3C 3290 


DEFB 16H 
DEFW 1308H 
DEFW 021IH 
DEFM "Dee:DOTI: 

DEFB 0H0H 


DEFB 16H 
DEFW 0010H 
DEFW 0112H 
DEFW 041IH 
DEFM "*Caricarne 

DEFM "ocaziom 

DEFB "*"+80H 


DEFB 16H 
DEFW 0010H 
DEFW 051IH 
DEFW 0115H 
DEFM "-Sostitu.i 

DEFM "ssetta — 


FF49 HD 3290 

3300 

8-" 

FF4fi 16 3310 

FF4B 1000 3320 

FF4D 1106 3330 

FF4F 1501 3340 

FF51 3350 

Save #* " 

FF63 3360 

XSXL" 

FF70 H0 3370 

3380 

9-" 

FF71 1201 3390 

FF73 1102 3400 


DEFB "+80H 


DEFB 16H 
DEFW 0010H 
DEFW 061IH 
DEFW 0115H 
DEFM "Verify ** 

DEFM "Load ? V 

DEFB 0H0H 


DEFW 0112H 
DEFW 021 IH 
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3410 


DEFM "<<DETECT 


FF75 
B*cku.P*" 

FF05 3420 DEFM " V 1.0 09 

/'1903»" 

FF95 1401 3430 DEFW 0114H 

FF97 1103 3440 DEFW 031IH 

PF99 3450 DEFM "Sistema d 

i BACKUP " 

FFAB 3460 DEFM "dei FILES 

FFB8 AB 3470 DEFB "+"+80H 

3480 ; "-1 


FFB9 16 3490 DEFB 16H 

C FBA 0306 3500 DEFW 0603H 

FFBC 1105 3510 DEFW 051IH 

FFBE 1201 3520 DEFW 0U2H 

FFC0 3530 DEFM "PROGRAMMA 


FFC9 1200 3540 

FFCB 3A 3550 

FFCC 1106 3560 

FFCE A0 3570 

3580 


1-" 

FFCF 16 3590 

FFD0 1000 3600 

FFD2 1102 3610 

FFD4 1201 3620 

FFD6 3630 

io FILE R" 

FFE8 3640 


DEFW 0012H 
DEFB 

DEFW 061IH 
DEFB 0A@H 


DEFB 16H 
DEFW 0010H 
DEFW 021IH 
DEFW 0112H 


DEFM "Salvataag 


DEFM 


"ilocato.. 


FFF5 AE 3650 DEFB "."+80H 

3660 ; "-1 

2 -" 

FFF6 16 3670 DEFB 16H 

FFF7 100E 3680 DEFW 0E10H 

FFF9 1501 3690 DEFW 0115H 

FFFB 3700 DEFM "O.k" 

FFFE AE 3710 LAST1 DEFB "."+80H 

3720 END 


LAST1 FFFE 









CHRS FE6F 
TFlPS FE62 
TflPV FE60 
CHflN FE58 
PRINT FE4C 
PRING FE47 
TEST FE39 
COST #S>F5E 
RING FE30 
CLSC FE2S 
se FE1E 

SCBL FElfi 
RLT FE00 
BLINK FE03 
WflIT FDFC 
CUTI FDFfl 
NIBLE FDF0 
CONV FDE7 
ESfl FDE2 
PTBC FDD1 
RSK FDB4 

SRLV FDRB 
CONT FD97 
PBC FD92 
BYTE FD87 
UNO FD47 
INIZ FD1E 
RELC 5DC0 
CHR1 09R2 
FILE 5B00 
TRDD 5074 
LRSK 5C0S 
OPEN 1601 
PTST 2032 
STCK 2D2B 
STR* 0C0R 
MSGG 2030 
TRPE 075R 
LORD 0556 
BELL 03B5 
SCLL 0E00 
CLS 0D6B 

» 6062 
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DETECT -S 


DETECT 1.0 presentato altrove in queste pagine è un programma per il 
backup dei nastri ed è in grado di dare tutte le informazioni relative ad un file 
registrato su una cassetta. Queste informazioni sono presentate su video nei 
due formati numerici, decimale ed esadecimale. 

Tuttavia tale programma ha una limitazione: 

- non sempre è possibile duplicare un file perché troppo lungo, per cui DE¬ 
TECT 1.0 ritorna al BASIC rifiutandosi di caricare un solo byte. 

Fortunatamente questa evenienza capita assai di rado perché è abbastan¬ 
za difficile, ma non improbabile, incontrare file più lunghi di 40.000 bytes. 

Quando ciò capita è possibile risolvere il problema usando DETECT -S. Il 
programma che segue non è altro che il caricatore del linguaggio macchina 
che realizza il backup. 

Infatti dopo aver dato il RUN il computer darà il solito messaggio che pre¬ 
cede ogni registrazione. Bisogna quindi disporre di una cassetta nuova su 
cui registrare il DETECT -S in L/M. 

L’uso poi di quest'oggetto è abbastanza semplice anche se bisogna pre¬ 
stare molta attenzione e in generale occorre dare queste istruzioni: 

1) spegnere e accendere il computer 

2) CLEAR 23999 

3) LOAD "DETECT -S" CODE 23400 

4) RANDOMIZE USR 23400 

Dopo quest’ultimo comando il computer sul video non mostra niente ma, 
se tutto procede bene, carica il primo file da duplicare che trova su cassetta. 
Ciò viene indicato dalle classiche righe variopinte sul BORDER. 

Quando comparirà sulle ultime due righe dello schermo il classico mes¬ 
saggio “Start Tape and Press any Key", il computer avrà rilocato tutto il file 
da duplicare a partire dalla locazione 24000 in poi. Inserendo una cassetta e 
premendo un tasto il file viene salvato. 
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1000 REM 

1005 REM PROGRAMMA DI BACKUP 
1010 REM MflX.41.5K BYTES FILE 
1015 REM 

1020 REM HEX-CODE Caricatore 
1025 REM 

1030 CLEAR 31999: LET *=32000 
1035 PRINT AT 10.11;"ATTENDERE 1 
1040 FOR i*0 TO 32 
1045 BEEP .01.65: READ a* 

1050 LET h=CODE a*C1>-48 
1055 LET h=h-7*<a*< 1 »"0" > 

1060 LET l»CODE *«2 >-48 
1065 LET 1 = 1-7*<»*'::2>>"@ M > 

1070 POKE a+i,16*h+l: NEXT i 
1075 SAVE "DETECT -S"CODE a.i 
1080 REM 

1085 REM DATI PROGRAMMA L.M. 
1890 REM 

1095 REM DETECT -S 

1100 REM 

1105 DATA "AF","DD","21","00" 
1110 DATA "5B"."11"."11"."00" 
1115 DATA "37"."CD"."56","05" 
1120 DATA "DD"."21","C0","5D" 
1125 DATA "ED","5B","0B","5B" 
1130 DATA “CD","6D","08","21" 
1135 DATA "C0","SD'V'DD","21" 
1140 DATA "00","5B","C3","70" 
1145 DATA “09" 


ASS. DETECT -S 


Il listato seguente è l'assembler della routine descritta nell'omonimo pro¬ 
gramma in BASIC. È molto breve e si nota che è rilocablle in ogni zona della 
memoria. 

Genericamente verrà caricata nel buffer di stampante a partire dalla loca¬ 
zione 23400. 
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Questa si basa su 3 subroutine nella ROM dello Spectrum che verranno 

ora brevemente descritte. 

Commento: 

LINEE da 160 a 200: 

prima di accedere alla routine LOAD (0556 HEX) si devono dare dei valori 

opportuni ai registri IX, DE e A dello Z-80: 

- i registri A uguale a 0, DE uguale a 17 indicano al computer di caricare i 
primi 17 bytes della parte iniziale, l'HEADER, del file memorizzandoli a 
partire dalla locazione puntata dal registro IX (i primi 17 bytes del buffer 
di stampante in questa applicazione). 

LINEE da 210 a 230: 

- la routine LOAT (086D HEX) è più o meno identica alla precedente e ser¬ 
ve per caricare l'intero corpo di un file. Per accedervi bisogna specificare 
nel registro IX l'indirizzo della locazione (24000 nel caso particolare) dal¬ 
la quale cominciare a caricare i bytes nel numero specificato nei registri 
DE. Tale numero per un dato file lo si ricava dalle informazioni ricevute 
caricando l'HEADER. 

LINEE da 240 a 260: 

- si salta alia routine SAVE (0970 HEX) dopo aver specificato in HL l'indi¬ 
rizzo di partenza dei bytes da salvare (24000) e in IX l'indirizzo ove risie¬ 
dono le informazioni (il contenuto dell'HEADER) relative al file che si de¬ 
sidera duplicare. 

Con qualche modifica è possibile caricare (e quindi duplicare) più di 
41.5k bytes agendo sulla variabile RELO. attualmente uguale a 24000, 
abbassandone il valore. In ambiente BASIC prima di lanciare la subrouti¬ 
ne occorre posizionare la RAMTOP in accordo con il valore di RELO im¬ 
postato. 


6062 


0000 ORG # 

0010 ; 

0020 ; 

0030 ; "Routine" 

0040 ; "Sistema" 


005© 


65 




@556 


0060 LORD EQIJ 0556H 

096D 00?@ LORT EQU 086DH 

@970 0000 SflVE EQU 0970H 

0090 i 

0100 j "V*ri*b." 

0110 ; 

5B00 0120 INFO EQU 5B00H 

5DC0 @130 RELO EQU 24000 

0140 ; 

0150 ; 

6062 RF 0160 INIZ XOR R 

6063 DD21005B @170 LD IX,INFO 

6067 111100 0160 LD DE,11H 

606R 37 0190 SCF 

606B CD5605 0200 COLL LORD 

606E DD21C05D 0210 LD IX,RELO 

6072 ED5B0B5B @220 LD DE,<INFO+0 

BH> 

6076 CD6D06 0230 CRLL LORT 

6079 21C05D 0240 LD HL,RELO 

607C DD21005B 0250 LD IX,INFO 

6060 C37009 0260 JP SflVE 

0270 END 

INIZ 6062 
RELO 5DC0 
INFO 5B00 
SflVE 0970 
LORT 006D 
LORD 0556 
# 6062 


HEAR THE MIC 


Questa routinetta di pochi byte non serve a granché, tuttavia è di grande 
effetto scenico perché se rileva la presenza di un segnale alla presa EAR 
dello Spectrum ne da una rappresentazione grafica sullo schermo. Il grafico 
che si ottiene è più legato al livello del segnale che alla sua frequenza per 
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cui una valida applicazione può essere il test del livello di registrazione delle 
cassette di personale incisione. 


1000 REM 

1005 REM HERR THE MIC 
1010 REM LETTURA PRESA EAR 
1015 REM E VISUALIZZAZIONE 
1020 REM 

1025 CLEAR 31999; GO SUB 9000 
1030 LET x=0: LET y-USR 32000 
1035 FOR n=0 TO 255 STEP 2 
1040 LET l=USR 32000: PLOT n ,1 
1045 DRAW x—n,-l+y: LET x=n 
1050 LET y-l: NEXT n 
1055 CLS : GO TO 1030 
1060 REM 

1065 REM HEX-CDDE CARICATORE 
1070 REM 

9000 FOR p-32000 TO 32016 
9005 READ ad 

9010 LET h=CODE a*<1>-48 
9015 LET h=h-7#<1) 

9020 LET 1-CODE **<2>-48 
9025 LET 1 = 1-7*< *«< 2 »"ffl"> 

9030 POKE p, 16*h+l 
9035 NEXT p: RETURN 
9085 REM 

9090 REM SUB HEAR THE MIC 
9095 REM 

9100 DATA "F3" , "01 " "00 ", "AF" 
9105 DATA "3E","7F","DB","FE" 
9110 DATA "CB"j"77" , "20" , "01" 
9115 DATA "0C","10" , "F5","FB" 
9120 DATA 11 C9" 
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ASS. HEAR THE MIC 


Data la semplicità di questa routine, c'é poco da dire sul listato assem¬ 
bler. Si rileva il dato alla porta 7FFE H, si controlla la presenza o meno di un 
segnale (BIT 6,A) e nel caso si incrementa il registro C. Il ciclo è svolto per 
175 volte (registro B) e il valore ritornato al Basic è il valore associato alla 
coppia BC con B sempre a zero. 


7000 


RF00 


0000 

0010 

0020 

0030 

0040 

0050 


0060 

0070 


0090 


ORG 32000 

"HERR" 
"THE " 
"MIC." 

"Variab." 

EQU 0RF00H 


7D00 F3 
7001 0100RF 
7004 3E7F 
7D06 DBFE 
7D0S QB77 
7D0A 2001 
7D0C 0C 
7D0D 10F5 
7D0F FB 
7010 C9 

NSET 7000 
TEST 7004 
IRG0 7000 
MRX RF00 
# 6062 


0110 IRQ0 
0120 

0130 TEST 

0140 

0150 

0160 

0170 

0180 NSET 
0190 
0200 
0210 


DI 

L0 BC,MAX 
LD R,7FH 
IN fl,< 0FEH > 
BIT 6,R 
JR NZ,NSET 
INC C 
DJNZ TEST 
EI 
RET 
EN0 




IMPULSE 


Questa routine a differenza della precedente è più utile. Sente la presenza 
di un segnale impulsivo all’ingresso e restituisce al Basic un valore inversa¬ 
mente proporzionale alla sua durata. 

Anche in questo caso se ne da una rappresentazione grafica su video. 

Il suo uso può essere quello di rilevare la variazione in frequenza (con 
molta approssimazione) che può essere presente, causa distorsioni o altro, 
nel leggere l'header, cioè la parte iniziale di ogni programma registrato su 
nastro. Questo è infatti preceduto da una nota fissa facilmente rilevabile da 
questo programma. In ogni caso provate a collegare alla presa EAR una ra¬ 
diolina e osservate l'effetto. 


1000 REM 

1005 REM MISURA DI UN IMPULSO 
1010 REM E RAPPRESENTAZIONE 
1015 REM GRAFICA 

1020 REM 

1025 GO TO 9000: REM RAM MEMO 
1030 DEF FN c<y>«INT <yx30> 

1035 LET a»0: LET b=a = LET s=2 
1040 CLS : PLOT 0,80: DRAW 255,0 
1045 PLOT 0,20: DRAW 255,0 
1050 FOR x-0 TO 255 STEP s 
1055 LET y«USR 32000: PLOT x,y 
1060 DRAW INK FN c<y>;a-x,b-y 
1065 LET *=x: LET b»y: NEXT x 
1070 LET a-0: GO TO 1040 
9000 REM 

9005 REM HEX-CQDE Caricatore 
9010 REM 

9030 CLEAR 31999: LET a-32000 
9035 READ a* 

9040 IF a*»"*# 11 THEN GO TO 1030 
9045 LET h“CQDE a*<1>-48 
9050 LET h»h-7#(a$<1>>"0"> 

9055 LET l=CODE a*<2>-48 
9060 LET l = 1-?*< a*< 2 > >"8"> 

9065 POKE a, 16*h-fl: LET a=a+l 
9070 GO TO 9035 
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DATI PROGRAMMA L.M. 
SUB IMPULSE 


9075 REM 
9080 REM 
9085 REM 
9090 REM 
9095 REM 
9180 DATA 
9105 DATA 
9110 DATA 
9115 DATA 
9120 DATA 
9125 DATA 
9130 DATA 
9135 DATA 


"F3","01" 
"CD"i"E3". 
"F8","01" 
"CD" j "E3". 
"F0"ì"78" 
"FE" , "B0" 
"3E","AF" 
"C9"j"*#" 


" 22","00 
"05", "30 
" 02","00 
"05","30 
"06","00 
"38","02 
"4F","FB 




ASS. IMPULSE 


La base fondamentale di questo programma è una subroutine mappata in 
ROM all'indirizzo 05E3 H chiamata EDGE che presiede alla rilevazione degli 
impulsi all'ingresso EAR. 

Questa costituisce la parte più importante per le operazioni di LOAO - VE¬ 
RI FY e ha due punti di ingresso: 

EDGE—1 = 05E3 
EDGE—2 = 05E7 

È noto che i dati spediti al generico registratore a cassette che tutti noi ab¬ 
biamo al seguito del nostro Spectrum, sono visti come una serie di impulsi 
registrati su nastro e come tali possono venire viceversa letti dal computer. 
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Se potessimo visualizzare la "forma" di questi impulsi essi assomigliereb¬ 
bero a un "onda quadra". Questa è costituita da un fronte di salita e uno di 
discesa e il tempo che intercorre fra di essi ne costituisce la durata. 

Si esegue EDGE-1 o EDGE-2 con una costante nel registro B e con il tipo 
di picco che si vuol rilevare nel registro C. Al ritorno da questa subroutine il 
flag di carry è posto a uno se si è trovato il numero richiesto di "impulsi" nel 
tempo stabilito in B e la variazione avvenuta in questo registro (B), stabilisce 
quanto tempo è stato necessario per trovare gli impulsi citati. 

Si chiama EDGE-1 quando occorre rilevare la lunghezza di un impulso 
completo. 

Si chiama EDGE-2 quando è necessario misurare il tempo precedente la 
rilevazione di un “picco”. 

Spero che risulti abbastanza chiaro che, opportunamente caricando il re¬ 
gistro B con un valore, ci si possa sincronizzare su un impulso di durata nota 
se questo è presente all'ingresso EAR. 


Per maggiori informazioni consiglio di consultare: 

THE COMPLETE SPECTRUM ROM DISASSEMBLY 
di Dr. lan LOGAN - Dr. Frank O' HARA. 


7000 


05E3 


0000 ORG 32000 

0010 J 

0020 ; "Routine" 

0030 ; "Si*tem*" 

0040 ; 

0050 EDGE EQU 05E3H 

0060 ; 


7D00 F3 
7001 012200 
7D04 CDE305 
7007 30F9 
7009 010200 
7D0C CDE305 
7D0F 30F0 
7D11 76 
7D12 0600 
7D14 FEB0 
7D16 3602 
7018 3EFIF 
7D1R 4F 
7D1B FB 


0070 IRQD 

0080 SYNC 

0090 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0100 

0190 LB 

0200 


DI 

LD BC.0022H 
CRLL EDGE 
JR NC., SYNC 
LD BC,0002H 
COLL EDGE 
JR NC,SYNC 
LD fl,B 
LD B,0 
CP 0B0H 
JR C.. LB 
LD fl,0fiFH 
LD C..R 
EX 


71 




7D1C C9 


0210 

0220 


RET 

END 


LB 7D1R 
SYNC 7D01 
IRQD 7D00 
EDGE 05E3 
# 6062 


72 



PARTE II 


LA GRAFICA 


ROUTINE DI SPOSTAMENTO (SHIFT) 


Se vi servono routine che lavorano sulla pagina grafica dello Spectrum, 
quanto segue fa per voi. Se invece non vi servono, vi invito comunque a dare 
un’occhiata, chissà forse tra una riga e l'altra di questi listati può maturare 
una nuova idea. 

Bene cominciamo subito a parlare delle "solite” routine di shift. 

Queste però non sono cosi usuali come si potrebbe pensare, infatti utiliz¬ 
zano una subroutine, già presente nella ROM dello Spectrum, che ho chia¬ 
mato BITC. 

Questa è una routine che calcola l'indirizzo della locazione video nella 
quale si andrà a scrivere (usualmente con un istruzione di PLOT, DRAW). 

SHIFT significa SPOSTAMENTO ed è a volte desiderabile ottenere lo spo¬ 
stamento di un bit, verso destra o sinistra, verso l’alto o il basso di tutto lo 
schermo. Ciò è stato fatto nelle subroutine seguenti. 

Esse funzionano in questo modo: 

1) si usa la subroutine BITC mappata in 22AAH in ROM. Calcola gli indirizzi 
dei byte su cui operare lo spostamento e come tale; 

2) per funzionare correttamente occorre specificare nei registri BC dello 
Z-80 l'ordinata e l’ascissa del punto che individua la locazione video che 
per prima deve essere elaborata. 

Esempio: la locazione 16384 (4000 in esadecimale) appartenente alla 
prima colonna video in alto, la si può calcolare specificando per l'ordina- 
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la Y il numero 175 (AF in esadecimale), e come ascissa il numero 0 op¬ 
pure 01,03.04...07. Il numero 08 come ascissa e sempre 175 come ordi¬ 
nata induce BITC a calcolare la locazione 16385 ovvero 4001 esadeci¬ 
male, che appartiene alla seconda colonna video. 

Avete capito il meccanismo? 

3) Per quanto detto al punto 2) si intuisce una cosa importante: è possibile 
spostare in ogni direzione porzioni ben definite dello schermo specifican¬ 
do in: 

XYCO l'ordinata e l'ascissa del punto che appartiene alla locazione da 
trattare 

BYTE il numero dei byte sulla riga su cui operare 

FINE l'ordinata del punto (riga) sulla quale ci si deve fermare. 

4) Ultima ma non meno importante, è inclusa la possibilità di non perdere il 
bit che "esce" a sinistra o a destra (in alto o in basso). Perciò il contenu¬ 
to della pagina grafica non si perde mai: ciò che esce da una parte rien¬ 
tra da quella opposta. 


SHBDX 


Di seguito vengono presentati due programmi che sono ciascuno l'appli¬ 
cazione della routine in L/M omologa. 

Sono molto semplici e differiscono l'uno dall'altro solo per poche istruzioni 
in assembler. 

SHBDX da un esempio di come si possa spostare verso destra, pixel per 
pixel, la prima linea in alto sullo schermo. 


1000 REM 

1005 REM ROUTINE DI SHIFT 
1010 REM fi DESTRO 
1015 REM 

1020 CLEfiR 31999: GO SUB 1065 
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1025 CLS ; FRI NT " Questa, e'la"; 
1830 PRINT " routine di SHIFT 
1035 PRINT "DX" 

1040 RONDONIZE USR 32000 
1045 PftUSE 1^ GO TO 1040 
1050 REM 

1055 REM HEX-CODE Caricatore 
1060 REM 

1065 LET a-32000 
1070 READ a* 

1075 IF a*-"**" THEN RETURN 
1080 LET h«CODE a*<1>-48 
1085 LET h-h-7*<a*<1>>"@"> 

1098 LET l=CODE a*<2>-48 
1095 LET 1-l-7#<*•< 2> > " @ " > 

1100 POKE a,16*h+l: LET a=a+l 
1105 GO TO 1070 
1110 REM 

1115 REM DOTI PROGRAMMO L.M. 
1128 REM 

1125 REM SUB SHBDX 

1130 REM 

1135 DOTO "01","00","HF","C5" 
1140 DATO "CD","OR","22","E5“ 
1145 DATA "06","20","A7","CB" 
1150 DATA "1E","23","10","FB" 
1155 DATA "El","30","02","CB" 
1160 DATA "FÉ","CI","05","78" 
1165 DATA "FÉ","A7","20","E7" 
1170 DATA "C9","**" 


ASS. SHBDX (SHIFT A DESTRA) 


Questa routine è molto semplice, è rilocabile in qualsiasi zona della me¬ 
moria, ed è modificabile per ciò che riguarda le tre variabili principali 
(YXCO, BYTE, FINE), dall'utente al fine di estendere lo spostamento a una o 
più linee del video o a tutto lo schermo. 
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Un breve commento per gruppi di linee servirà a chiarirne il funziona¬ 
mento: 


LINEE da 0130 a 0160: 

- si carica nella coppia di registri B e C dello Z80 l'ordinata e l'ascissa del 
punto che individua la locazione desiderata (ce ne sono 8 di questi punti 
per gli 8 valori che X può assumere per ciascun byte del video, se ne 
prende uno solo). Si salva BC sullo stack, si calcola l'indirizzo di questo 
byte chiamando la routine BITC che deposita tale valore nella coppia di 
registri HL. Quindi si salva sullo stack HL. 

LINEE da 0170 a 0240: 

- in questa fase il registro B contiene il numero di byte che su ogni linea si 
intende elaborare. Perciò costituisce il numero di volte che il ciclo se¬ 
guente deve essere ripetuto (linee tra 0190 e 0210). Quindi si ripristina il 
valore dei registri HL e, in base al valore del bit di carry, si elabora II bit 7 
della locazione puntata da HL che risulta essere la prima di ogni linea. 
Questo bit durante il ciclo di rotazione andrebbe perso. In questo modo 
invece si fa in modo che il bit che esce a destra dello schermo rientri a si¬ 
nistra e nulla va perso. 

LI NEE da 0250 a 300: 

- si ripristina il valore di BC dallo stack, cioè l'ordinata e l'ascissa del solito 
punto, si decrementa l'ordinata per passare alla linea successiva, si fa un 
test di FINE lavoro, quindi si esce o si prosegue il ciclo. 


7D00 


22AR 


0000 ORG 

0010 ; 


0040 i 

0050 BITC EQU 


32000 

"Routine" 
"Si sterna " 

22ARH 


RF00 

0020 

00fl7 


0030 YXCO EQU 0RF00H 
0100 BYTE EQU 32 
0110 FINE EQU 0R7H 

0120 j 
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7000 0100AF 0130 SHBDX LO BC.YXCO 

7D03 05 0140 LB2 PUSH BC 

7004 CDRA22 0160 CRLL BITC 

7007 E5 0170 PUSH HL 

7D08 0620 0180 LO B,BYTE 

7D0R R7 0190 RND R 

7D0B CB1E @200 LB3 RR <HL> 

7000 23 0210 INC HL 

7D0E 10FB 0220 DJNZ LB3 

7010 E1 0230 POP HL 

7011 3002 0240 JR NC.LB4 

7013 CBFE 0250 SET 7,<HL> 

7D15 CI 0260 LB4 POP BC 

7016 05 0270 DEC B 

7017 78 0280 LO R,B 

7018 FER7 0290 CP FINE 

701R 20E7 0300 JR NZ,LB2 

701C C9 0310 RET 

0320 END 

LB4 7D15 

LB3 7O0B 

LB2 7003 

SHBDX 7000 

FINE 00R7 

BYTE 0020 

YXCO RF00 

BITC 22RR 

# 6062 


SHBSX 


SHBSX sposta pixel per pixel verso sinistra la prima linea dello schermo, 
cosi come è stato fatto nel programma precedente. 

Tuttavia penso sia abbastanza chiaro che, opportunamente agendo sulle 
istruzioni in L/M, sia possibile estendere questo spostamento ad altre linee o 
a particolari porzioni di schermo. A questo scopo è d'obbligo esaminare il li¬ 
stato assembler di ciascuna routine. 
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1000 REM 

1005 REM ROUTINE DI SHIFT 
1010 REM Fi SINISTRA 
1015 REM 

1020 CLEAR 31999 : GO SUB 1065 
1025 FRI NT " Questa e'la"; 
1030 PRINT " routine di SHIFT 
1035 PRINT "SX" 

1040 RANDQMIZE USR 32000 
1045 PfiUSE 1: GO TO 1040 
1050 REM 

1055 REM HEX-CQDE Caricatore 
1060 REM 

1065 LET a"=32000 
1070 READ a* 

1075 IF a*="**" THEN RETURN 
1080 LET h=CODE a*<1>-46 
1085 LET h»h-7*< a»(1»"8"> 
1090 LET l=CQDE a*<2>-48 
1095 LET l=l-7#< a*< 2 ) 

1100 POKE s,16#h+l: LET a=a+l 
1105 GO TO 1070 
1110 REM 

1115 REM DATI PROGRAMMA L.M. 
1120 REM 

1125 REM SUB SHBSX 

1130 REM 

1135 DATA "01 11 , "FF" , " AF" , "C5" 
1140 DATA "CD","fifi","22","E5" 
1145 DATA "06","20","A7","CB" 
1150 DATA "16","2B","10","FB" 
1155 DATA "El","30","02","CB" 
1160 DATA "C6","Cl","05","70" 
1165 DATA "FE","A7","20","E7" 
1170 DATA "C9'\"**" 


ASS.SHBSX (SHIFT A SINISTRA) 

Per questa routine valgono le stesse considerazioni fatte per ASS.SHBDX. 





Lascio al lettore l'esame del listato assembler che non differisce molto da 
quello precedente. Cambiano infatti qualche istruzione e il modo di operare 
sulle locazioni video: 

- alla variabile XYCO, quella che contiene i valori Y e X del punto della lo¬ 
cazione desiderata, bisogna attribuire il valore desiderato in modo diffe- 


Mentre nello spostamento a destra si operava per locazioni crescenti, 
cioè partendo dalla locazione 4000 alla 401F (esadecimale), nello sposta¬ 
mento a sinistra si opera in modo inverso. Ciò è stato fatto per semplicità di 
programmazione. 


7000 0000 ORG 32000 

0010 ; 

0020 ; "Routine" 

0030 i "Sistema" 

0040 ; 

22RR 0050 BITC EQU 22RRH 

0060 i 

0070 J "Veriab." 

0080 ; 

RFFF 0090 YXCO EQU 0RFFFH 

0020 0100 BYTE EQU 32 

00R7 0110 FINE EQU 0R7H 

0120 ; 

7000 01FFRF 0130 SHBSX LO BC,YXCO 

7003 C5 0140 LB2 PUSH BC 

7004 C0RR22 @160 CRLL BITC 

7007 E5 0170 PUSH HL 

7006 0620 0180 LO B,BYTE 

7O0R R7 0130 RND fi 

7D0B CB16 0200 LB3 RL < HL > 

7D0O 2B 0210 DEC HL 

7D0E 10FB 022© DJNZ LB3 

7010 E1 0230 POP HL 

7011 3002 0240 JR NC,LB4 

7013 CBC6 0250 SET 0,<HL> 

7015 CI 0260 LB4 POP BC 

7016 05 0270 OEC B 

7017 78 0280 LO fl.,B 

7018 FER7 0290 CP FINE 
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HZ,LB2 


7D1R 20E7 0300 

7D1C C9 0310 

0320 

LB4 7D15 

LB3 7D0B 

LB2 7D03 

8HBSX 7D00 

FINE 00R7 

BYTE 0020 

YXCO RFFF 

BITC 22RR 

# €062 


ROUTINE DI SPOSTAMENTO VERTICALE 


Le due routine che di seguito vengono descritte non sono altro che l'ovvia 
espansione delle precedenti. Realizzano lo spostamento verticale nelle due 
direzioni. Si usa anche qui la subroutine BITC che abbiamo già visto. La rou¬ 
tine SHBVS sposta il contenuto del video di un pixel verso l'alto, mentre con 
la routine SHBVG, si ottiene l'effetto opposto. 


SHBVS 


Questo programma sposta verso l'alto la prima riga dello schermo. 
La routine è leggermente più lunga delle precedenti poiché è relativamente 
più complicato gestire lo spostamento verso l'alto o verso il basso dello 
schermo. 


1000 REM 

1005 REM ROUTINE DI SHIFT 
1010 REM VERSO L'RLTO 
1015 REM 



1020 

1025 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 

1090 

1095 

1100 

1105 

1110 

1115 

1120 

1125 

1130 

1135 

1140 

1145 

1150 

1155 

1160 

1165 

1170 

1175 

1180 

1185 


CLEFlR 31999: GO SUB 1065 
PRINT "Questa e' la"; 
PR1NT " routine di SHIFT 
PRINT "VS" 

RRNDQMIZE USR 32000 
PRIJSE 1 : GO TO 1040 
REM 

REM HEM-CODE Caricatore 
REM 

LET a=32000 
RERD a* 

IF a*-"#*" THEN RETURN 
LET h=CODE a*<1>-48 
LET h«h-7#<a*<1>>"@"> 

LET l=CODE a»<2>-48 
LET l-l-7*<a*<2>>"0"> 
POKE *,16*h+l: LET a=a+l 
GO TO 1070 
REM 

REM ORTI PROGRRMMfl L.M. 
REM 

REM SUB SHBVS 

REM 

DRTR "01 ","00","RF" , "3E" 
DRTR "20","08" , "C5" , "CD" 
DRTR "RR","22","CI","C5" 
DRTR "7E","F5","EB","C5" 
DRTR "05","CD","RR","22" 
DRTR "Cl","7E","12","05" 
DRTR "78","FE","R7","20" 
DRTR "FI", "FI 11 , "77", "Cl" 
DRTR "79". "C6","08","4F" 
DRTR "08","3D","20","DD" 
DRTR "C9","##" 


ASS.SHBVS (SHIFT VERSO l’ALTO) 


Commento al listato: 



LINEE da 0130 a 0210: 


- si carica BC con le modalità viste in precedenza e il registro A con il nu¬ 
mero di byte sulla riga da elaborare e si salva sia questo valore nella cop¬ 
pia di registri ausiliari A'F', sia BC sullo stack. Si chiama la routine che 
calcola l'indirizzo della locazione video da elaborare per prima, se ne ca¬ 
rica il valore in A e lo si salva sullo stack. Ciò viene tatto perchè nello spo¬ 
stamento tale valore andrebbe perso. 

LINEE da 0220 a 0320: 

- ciclo di trasferimento tra il contenuto della linea sottostante a quella so¬ 
pra. Per linee si intende ovviamente linee dello spessore di un pixel (pun¬ 
tino sullo schermo). 

LINEE da 0330 a 0420: 

- bisogna premettere una spiegazione prima di proseguire: lo spostamento 
avviene per colonne ed è esteso fino a FINE linee ed a BYTE colonne. 
Ecco che dopo aver prelevato dallo stack il valore di A salvato in prece¬ 
denza e memorizzato al posto giusto (come sempre nulla della pagina grafi¬ 
ca va perso), per ottenere l'indirizzo della prossima colonna bisogna ripren¬ 
dere le coordinate in BC dallo stack ed aggiungere a C, che è l’ascissa, il va¬ 
lore 8 che è lo scarto tra una colonna e l'altra e all'occorrenza proseguire il 


7D00 


ORG 32000 


0050 BITC EGHJ 22RRH 


0060 

0070 


"Variati. " 


RF00 

0020 

00R7 

7D00 0100RF 
7D03 3E20 
7D05 08 
7006 CS 


0090 YXCCI 
0100 BYTE 
0110 FINE 

0120 j 

0130 SHBVS 
0140 

0150 LB12 
0160 


EQU 0RF00H 
EG!U 20H 
ECIU 0R7H 

LD BC.YXCQ 
LO R.BYTE 
EX RF.fl'F' 
PUSH BC 
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7D0R CI 
7D0B C5 
7D0C 7E 
7D0D F5 
7D0E EB 
7D0F C5 
7D10 05 
7D11 GDFIR22 
7014 CI 
7D15 7E 

7016 12 

7017 05 

7018 78 

7019 FER7 
701B 20F1 
7010 FI 
701E 77 
7D1F CI 
7D20 79 
7021 C608 

7023 4F 

7024 08 

7025 30 
7D26 2000 
7028 C9 

EXX 7O0E 
LB12 7005 
SHBVS 7000 
FINE 00R7 
BYTE 0020 
YXCO RF00 
BITC 22RR 
4 6062 


0170 


0190 

8280 

0210 

0220 EXX 

0230 

0240 

0250 

0260 

0270 


0290 

0300 

0310 


0330 

0340 

0350 

0360 

0370 


0390 


0410 

0420 

0430 


CRLL BITC 
POP BC 
PUSH BC 
LO fl,<HL) 
PUSH RF 
EX OE,HL 
PUSH BC 
DEC B 
CRLL BITC 
POP BC 
LO Hi < HL ) 

LO < DE >, fi 

DEC B 
LO R,B 
CP FINE 
JR N2j EXX 
POP RF 
LO <HL>,R 
POP BC 
LO fl,C 
ROO 8 
LO C,fl 
EX RF.fi'F' 
DEC R 

JR NZ,LB12 

RET 

END 


SHBVG 


Ovvio complemento al precedente programma, ecco come avviene lo 
spostamento verso II basso della solita riga. 
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Come per gli spostamenti orizzontali è possibile modificare il valore di al¬ 
cuni byte in L/M per estendere lo spostamento a porzioni ben precise dello 
schermo. 


1000 REM 

1005 REM ROUTINE DI SHIFT 
1010 REM VERSO IL BRSSQ 
1015 REM 

1020 CLEAR 31999: QO SUB 1065 
1025 FRI NT "Questa, e' la"; 
1030 PRINT " routine di SHIFT 
1035 PRINT "VG" 

1040 RANDOMIZE USR 32000 
1045 PRUSE 1: GO TO 1040 
1050 REM 

1055 REM HEX-CODE Caricatore 
1060 REM 

1065 LET a-32000 
1070 RERD a* 

1075 IF a*»"**" THEN RETURN 
1080 LET h*=CODE a*<1>-48 
1085 LET h=h-7*< a*<1>>"8"> 
1090 LET l-CODE a*<2>-48 
1095 LET l"l-7*<a*< 2 >>"8"> 
1100 POKE a, 16*h+l : LET a=a+l 
1105 GO TO 1070 
1110 REM 

1115 REM DRTI PROGRAMMA L.M. 
1120 REM 

1125 REM SUB SHBVG 

1130 REM 

1135 DATA "01","00","A8","3E" 
1140 DATA "20","08","C5","CD" 
1145 DATA "AA","22","CI","C5" 
1150 DATA "7E","F5","EB","C5" 
1155 DATA "04"."CD","AA","22" 
1160 DATA "Cl","7E","12","04" 
1165 DATA "78","FE","AF","20" 
1170 DATA "FI","FI","77","CI" 
1175 DATA "79","C6","08","4F" 
1180 DATA "08","3D","20","DD" 
1185 DATA "C9","**" 



ASS.SHBVG (SHIFT VERSO IL BASSO) 


Anche in questo caso la routine non differisce molto da quella precedente. 
Bisogna fare attenzione a ben inizializzare le 2 variabili YXCO e FINE il cui 
valore viene attribuito in maniera inversa a quanto fatto nella routine prece- 


7000 


22RFI 


0000 

0010 

0020 

0030 


ORG 


32000 

"Routine" 

"Sistema" 


0050 BITC EQU 22RRH 


0060 ; 

0070 ; "Variab." 

0080 ; 


R800 

0020 

00RF 

7000 0100R8 
7D03 3E20 
7D05 08 

7006 C5 

7007 CDRR22 
7D0R CI 
7O0B C5 
7O0C 7E 
7000 F5 
7D0E EB 
7O0F C5 
7010 04 
7D11 CDRR22 

7014 CI 

7015 7E 
7D16 12 
7017 04 
7D18 78 
7019 FERF 
701B 20F1 


0090 YXCO EQU 
0100 BYTE EQU 
0110 FINE EQU 
0120 ; 

0130 SHBVG LO 


0140 LO 

0150 LB12 EX 
0160 PUSH 

0170 CRLL 

0180 POP 

0190 PUSH 

@200 LO 

0210 PUSH 

0220 EXX EX 
0230 PUSH 

0240 INC 

0250 CRLL 

0260 POP 

0270 LO 

0280 LO 

0290 INC 

0300 LO 

0310 CP 

0320 JR 


0R800H 

20H 

0RFH 

BCiYXCO 
fi.BYTE 
RF.fi'F' 
BC 

BITC 

BC 

BC 

R.CHL) 

RF 

0E,HL 

BC 

B 

BITC 

BC 

RAHL> 

<0E>,R 


FINE 
NZ.EXX 
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7D1D FI 8330 

7D1E 77 0340 

7D1F CI 0350 

7D20 79 0360 

7D21 C608 @370 

7D23 4F 0380 

7D24 08 0390 

7D25 3D 0400 

7D26 20DD 0410 

7D28 C9 0420 

0430 

EXX 7D0E 


LB12 7D05 
SHBVG 7D00 
FINE 00RF 
BYTE 0020 
YXCO R800 
BITC 22RR 
# 6062 


POP RF 
LD CHLJ.fi 
POP BC 
LD fi. C 
RDD 8 
LD C.R 
EX RF.R'F' 
DEC R 

JR NZ.LB12 

RET 

END 


SUPER CHR$ 


È un programma molto utile che serve per ingrandire un messaggio su vi¬ 
deo da 2 fino 7 volte (o più). Il suo funzionamento è semplice. Il messaggio 
che si vuole stampare viene scritto in una zona dello schermo quindi la ma¬ 
trice di punti (8x8) di ciascun carattere è scandita dall'istruzione POINT per 
determinare se un punto sul video è acceso o spento. Se acceso bisognerà 
ingrandirlo secondo il parametro I da noi introdotto. 

La stringa da ingrandire è stampata in alto a sinistra mentre l'ingrandi¬ 
mento é stampato poco più sotto. L'ingrandimento possibile è comunque su¬ 
periore a 7. Maggiore è l'ingrandimento, minore è ovviamente il numero di 
caratteri su video. Il programma si può modificare a piacere e si può acco¬ 
dare ad un programma principale come subroutine essendo abbastanza ve¬ 
loce nell’elaborazione. 

Un consiglio: si può evitare di stampare in alto a sinistra il messaggio da 
ingrandire, che potrebbe alterare il display in quella posizione, utilizzando 
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una tecnica altrove usata (vedi CHR$ EDITOR) che consiste nell’elaborare i 
dati che definiscono il carattere prelevandoli dalla RAM (U.D.G.) o ROM 
(A.S.C.I.I.). 


1000 BORDER li INK 7= PAPER 1 
1005 OVER 0: BRIGHT FLASH 0 
1010 CLS 

1015 PRINT RT 1,9; INK 6; PAPER 2; FLASH 
li INVERSE 1;"SUPER CARACTHERS" 

1020 PRINT : PRINT ;"QUESTO PROGRAMMA PE 
RMETTE DI VI-" 

1825 PRINT "SUOLIZZARE MESSAGGI INGRANDÌ 
TI" 

1030 PRINT "DA 2 A 7 VOLTE." 

1035 PRINT : PRINT "IL NUMERO DEI CORATT 
ERI E':": PRINT 

1040 PRINT "16 PER INGRANDIMENTO - 2" 
1045 PRINT "10 PER INGRANDIMENTO ■ 3" 
1050 PRINT "08 PER INGRANDIMENTO - 4" 
1055 PRINT "06 PER INGRANDIMENTO *= 5" 
1060 PRINT "05 PER INGRANDIMENTO *= 6" 
1065 PRINT "04 PER INGRANDIMENTO = 7" 
1070 PRINT AT 21,3;"BATTI <ENTER> PER IN 
IZIARE " 

1075 PAUSE 0: CLS 

1080 INPUT "MESSAGGIO:";M* 

1085 LET CH-LEN M* 

1090 INPUT "INGRANDIMENTO <2-7>:";I: CLS 
1095 PRINT FLASH 1;RT 0,0;M* 

1100 FOR X-0 TO CH*8-1 
1105 FOR Y-175 TO 168 STEP -1 
1110 LET Z-175-Y 

1115 IF POINT < X, Y > THEN GO SUB 1155 
1120 NEXT Y: NEXT X 
1125 FOR J-0 TO 31 
1130 PRINT AT 0,J;" "; 

1135 NEXT J 

1140 INPUT "ALTRO MESSAGGIO ? :"; E* 

1145 IF E*-"S" OR E*-"*" THEN GO TO 108 
0 

1150 STOP 

1155 FOR V“0 TO 1-1 
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1160 PLOT I*X+V,165-2*1 
1165 DRRW 0,1-1: NEXT V 
1170 RETURN 


SUPERCHR$ 

SUPE 

3 U PERCHRS 

5UPERCHR 

SUPERCHR$ 


OTTOGRAF 


Questo programmino è il naturale complemento a SUPER CHR$ prima de¬ 
scritto. 
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La sua funzione è di permettere la scrittura di un messaggio in 8 direzioni 
sullo schermo. Dapprima si stampa il messaggio in zona nota del video, poi 
l’istruzione POI NT fa un test sulla matrice di pixel di ciascun carattere che si 
vuol stampare e si disegna il pixel corrispondente, a partire dalle coordinate 
stabilite, secondo la direzione voluta. 


1000 INPUT "Direzione ? ";d» 

1005 LET «-VAL d* 

1010 INPUT "riessa.03io ? "jrn* 

1015 REM 

1020 INPUT ? "j x 
1025 INPUT "Y- ? ";y 
1030 PRINT AT 21,0;rn* 

1035 FOR n=0 TQ LEN m**8-l 
1040 FOR o-0 TO 7 

1045 IF POINT <n,o> THEN GO SUB 1065+5* 


1050 NEXT o: NEXT n 
1055 GO TO 1000 
1060 REM 

1065 PLOT Q-x i n+y• RETURN 
1070 PLOT n+x-o,n+y+o: RETURN 
1075 PLOT n+x.o+y: RETURN 
1080 PLOT n+x+o,o+y-n: RETURN 
1085 PLOT o+x,rt-y: RETURN 
1090 PLOT n-x-o,n-y+o: RETURN 
1095 PLOT n-x,o-y: RETURN 
1100 PLOT n-x+o,o-y-n: RETURN 


PAINT 


Questo programma è un esempio di come utilizzare l’omonima routine in 
L/M di cui, come al solito, si da più avanti il listato assembler. 

Dopo aver caricato il linguaggio macchina all'indirizzo 32000, il program¬ 
ma mostra un grafico a barre generato casualmente. 

È proprio in applicazioni di questo tipo che la potenza della routine di 
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PAINT (to paint in inglese significa verniciare, colorare...) si fa vedere. 

Infatti risulta particolarmente adatta a riempire di colore zone dello scher¬ 
mo definite da figure geometriche molto regolari come i rettangoli in questo 

Le figure contorte e molto intersecate sono più difficili da riempire e per o- 
gnuna di esse bisognerà prendere più punti, scelti in modo strategico, ove 
indirizzare la routine PAINT. 

Usare quest'ultima è molto semplice. Si deve dare il seguente comando: 

RANDOMIZE x+y*USR 32000 
oppure 

LET a=x+y*USR 32000 

X e Y sono due variabili cioè l'ascissa e l'ordinata del punto ove si vuole 
cominci la colorazione della figura. 



1000 REM 

1005 REM FRINT 

1010 REM ESEMPIO 

1015 REM ISTOGRAMMA A BARRE 
1020 REM 

1025 CLEAR 31999: GO SUB 1190 
1030 CLS : DIM y<7>: OVER 0 
1035 LET p-32000: FOR x=l TO 7 
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1040 LET y<x>=10+110#RND 
1045 PLOT 32#x,40: DRRW 0,y<x> 

1050 DRRW 16,0: DRRW 0,-y<x> 

1055 DRRW -16,0: NEXT x 
1060 PLOT 16,32: DRRW 235,0 
1065 DRRW -3,3: DRRW 0,-6 
1070 DRRW 3,3= PLOT 24,16 
1075 DRRW 0,155: DRRW -3,-3 
1080 DRRW 6,0: DRRW -3,3 
1085 FOR x-32 TO 240 STEP 16 
1090 PLOT x,34 : DRRW 0,-4 
1095 PLOT x+8,35: DRRW 0,-6 
1100 NEXT x 

1105 PRINT RT 0,12j"BfiR GRRPH" 

1110 FOR y=40 TO 160 STEP 16 
1115 PLOT 26,y: DRRW -4,0 
1120 PLOT 27,y+8; DRRW -6,0 
1125 NEXT y 
1130 PRINT RT 18,2;0 
1135 FOR y*32 TO 160 STEP 16 
1140 PRINT RT 20~y<-0,0;y 
1145 NEXT y 

1150 FOR x=32 TO 240 STEP 32 
1155 PRINT RT 19,xx8;x 
1160 NEXT x 

1165 FOR x-1 TO 7: INK 7-x 
1170 LET y=<8+32#x>+45#USR P 
1175 NEXT x 

1180 PRINT #0;TflB 10;"PRINT ROUTINE" 
1185 PRUSE 1: PRUSE 0: GO TO 1030 
1190 REM 

1195 REM HEX-CODE Caricatore 
1200 REM 

1205 LET a-32000 

1210 PRINT RT 10,11;"ATTENDERE" 

1215 BEEP .01,65: RERD a* 

1220 IF a*-"**" THEN RETURN 
1225 LET h-CODE a*<1>-48 
1230 LET h*h-7*<a*<;i»"0"> 

1235 LET 1-CODE a*<2>-48 
1240 LET l«l-7#(a*<2»"@" > 

1245 POKE a,16*h+l: LET a=a+l 
1250 GO TO 1215 
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1255 REM 
1260 REM 
1265 REM 
1270 REM 
1275 REM 
1280 DATA 
1285 DATA 
1290 DATA 
1295 DATA 
1300 DATA 
1305 DATA 
1310 DATA 
1315 DATA 
1320 DATA 
1325 DATA 
1330 DATA 
1335 DATA 
1340 DATA 
1345 DATA 
1350 DATA 
1355 DATA 
1360 DATA 
1365 DATA 
1370 DATA 
1375 DATA 
1380 DATA 


DATI PROGRAMMA L.M. 


PAINT 

"2A","65","5C", 
“5C","A7","ED", 
"0A" "DA", "8B" , 
“1E","F5","CD", 
"FI", "57","21", 
"4B","E5","D5", 
"22","Cl","DI", 
"1F","30","45", 
"28","13","E5", 
"AR","22","47", 
"10","FD","E6", 
"Ei","28","DA", 
"FÉ","01","20", 
"47","28","1A", 
"16","2E","01", 
"C5","CD","AA", 
"7E","07","10", 
"CI","DI","E1", 
"94","67","FÉ", 
"CD","28","2D", 


"ED","5B","63" 
“52","7D","FÉ" 
"28","CD","94" 
"94","1E","5F" 
"01","01","42" 
"C5","CD","E5" 
"El","CD","54" 
"7D","81","4F" 
"D5","C5","CD" 
"04","7E","07" 
"01","CI","DI" 
"AF","95","6F" 
"D2","7C","80" 
"FE","AF","30" 
"4B","E5","D5" 
"22","47","04" 
"FD","E6","01" 
"28","B3","AF" 
"01","20","AB" 
"C3","28","2D" 


ASS.PAINT 


Quanto segue è il commento della routine PAINT. Questa ha la (unzione di 
riempire zone dello schermo attorno ad un punto specificato. Ad esempio 
scegliendo un punto aH'interno di un rettangolo, e chiamando questa routine, 
il risultato sarà quello di riempire la zona racchiusa dal perimetro della figura 

Cioè si disegnano tutti i punti attorno a quello iniziale secondo lo schema 
seguente: 
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— il riempimento avviene secondo linee orizzontali a partire dal punto spe¬ 
cificato incrementandone l'ascissa fino ad incontrare un punto già dise- 

In tal caso la routine torna al punto di partenza invertendo il senso di mar¬ 
cia, anche qui procedendo alla ricerca di un punto già presente. Occorre 
successivamente passare alla linea superiore e allo scopo si incrementa 
l'ordinata iniziale. Il procedimento è uguale anche per tutti i punti che stanno 
al di sotto di quello dato e comunque racchiusi dai perimetro della figura. 

La routine non è il massimo deH’intelligenza nel senso che se la figura è 
molto complessa, contorta o intersecata da altre figure, il riempimento av¬ 
viene in modo non completo. 

A questo apparente difetto si può ovviare scegliendo dei punti adeguati al¬ 
l'interno della figura. Per riempire con un colore preciso bisogna, prima di 
chiamare la routine, dare il comando INK C, dove C è il colore che si deside¬ 
ra. Nell'applicazione Basic di PAINT ciò è chiaramente visibile. 


Commento: 

LINEE da 170 a 230: 

- in queste linee viene fatto un test per controllare se le coordinate grafiche 
del punto sono state passate correttamente al L/M. In caso contrario si 
da un messaggio di errore saltando alla subroutine 288BH. 

LINEE da 240 a 320: 

- tali coordinate vengono a turno prelevate dallo Stack ove il BASIC me¬ 
morizza il valore delle variabili attualmente in uso e sono poste nei registri 
DE e BC. 

LINEE da 330 a 450: 

- si disegna il punto di coordinate BC e si controlla la pressione del tasto 

BREAK. 

LINEE da 460 a 590: 

- questa serie di istruzioni equivalgono all'Istruzione POI NT in BASIC. In 
base al risultato di questa operazione si decide se cambiare il senso di 
"plottaggio» orizzontale del punto (da destra verso sinistra) o proseguire 
nella stessa direzione fino ad incontrare un punto già disegnato. 
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LINEE da 600 a 860: 

— se tale cambiamento di direzione è già avvenuto, si provvede a cambiare 
la direzione verticale passando alla linea di pixel immediatamente supe- 


LINEE da 870 a 930: 

- il tutto viene ripetuto per la porzione di schermo al di sotto del punto ini¬ 
ziale ove si è iniziata l'elaborazione. 


LINEE da 920 a 930: 

- se ciò non fosse possibile vengono ripristinate le locazioni di RAM dalle 
quali si sono prelevate le coordinate del punto saltando per due volte di 
seguito alla subroutine 2D28H. Vengono memorizzati due numeri a caso, 
ma ciò è necessario prima di ritornare al BASIC. 


7D00 0000 ORG 

0010 i 
0020 ; 

0030 ; 

0040 ; 

22E5 0050 PLOT EGLI 

22FIR 0060 BITC EQIJ 

1E94 0070 LDAC EGU 

2D28 0080 STOCK EGU 

288B 0090 ERR EGU 

1F54 0100 BRERK EQU 

0110 ; 

0120 ; 

0130 J 

5C65 0140 STED EGU 

5C63 0150 STBT EGU 

0160 J 

7D00 2A655C 0170 XNIT LD 


7D03 ED5B635C 0180 LD 

7D07 A7 0190 AND 

7D08 ED52 0200 SBC 

7D0A 7D 0210 LD 

7D0B FE0A 0220 CP 

7D0D DA8B28 0230 JP 


32000 

"Routine" 

"Sistema" 

22E5H 

22'ARH 

1E94H 

2D28H 

288BH 

1F54H 

"Variato." 

5C65H 

5C63H 

HL,< STED > 
DE,<STBT > 
A 

HL, DE 
A, L 

10 

C, ERR 
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7010 CD941E 8240 LDRR CRLL LDRC 

7013 F5 0250 PUSH RF 

7014 CD941E 0260 CRLL LDRC 

7D17 5F 0270 LD E, R 

7D16 FI 0260 POP RF 

7019 57 0290 LO D,fl 

701R 210101 0300 PRINT LD HL,0101H 

701D 42 0310 UP LO B,D 

701E 4B 0320 NXTR LO C,E 

701F E5 0330 NXTP PUSH HL 

7020 05 0340 PUSH OE 

7021 C5 0350 PUSH BC 

7022 C0E522 0360 CRLL PLOT 

7025 CI 0370 POP BC 

7026 01 0380 POP OE 

7027 E1 0390 POP HL 

7028 CD541F 0400 CRLL BRERK 

702B 3045 0410 JR NC,EXIT 

7020 7D 0420 LD R,L 

702E 61 0430 ROO C 

702F 4F 0440 LO C,R 

7030 2813 0450 JR Z, INV 

7032 E5 0460 PUSH HL 

7033 05 0470 PUSH OE 

7034 C5 0480 PUSH BC 

7035 C0RR22 0490 CRLL BITC 

7038 47 0500 LO B,fl 

7039 04 0510 INC B 

7D3R 7E 0520 LO R,< HL > 

703B 87 0530 PI RLCH 

703C 10FO 0540 DJNZ PI 

703E E601 0550 RNO 1 

7040 CI 0560 POP BC 

7041 01 0570 POP OE 

7042 E1 0580 POP HL 

7043 280R 0590 JR Z, NXTP 

7045 RF 0600 INV XOR R 

7046 95 0610 SUB L 

7047 6F 0620 LO L,R 

7046 FE01 0630 CP 1 

7D4R 2002 0640 JR NZ,NXTR 

704C 7C 0650 LO fl, H 

7040 80 0660 ROO B 
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7D4E 47 
7D4F 28 IR 
7051 FERF 
7D53 3016 
7055 2E01 

7057 4B 

7058 E3 

7059 05 
705R C5 
705B C0RR22 
705E 47 
7D5F 04 
7D60 7E 
7D61 07 
7062 10FD 
7064 E601 
7066 CI 
7D67 01 

7068 E1 

7069 28B3 
706B RF 
7D6C 94 

7060 67 
706E FE01 

7070 20RB 
7072 CD2820 
7075 C32820 

EXIT 7072 
HXTC 7D6B 
P2 7061 
INV 7045 
PI 703B 
NXTP 701F 
NXTR 701E 
UP 7010 
PRINT 701R 
LDflfl 7010 
INIT 7000 
STBT 5C63 
STEO 5C65 
BRERK 1F54 
ERR 288B 


0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 P2 



0870 NXTC 

0880 

0890 

0900 

0910 

0920 EXIT 

0930 

0940 


LO B,R 
JR Z ,HXTC 
CP 175 
JR NC,NXTC 
LO L, 1 

LO Ci E 

PUSH HL 
PIJSH DE 
PUSH BC 
CRLL BITC 
LO Bifl 
INC B 
LO Rj < HL > 
RLCR 
DJNZ P2 
RNO 1 
POP BC 
POP OE 
POP HL 
JR ZiNXTR 
XOR R 
SUB H 
LO Hi fi 
CP 1 
JR NZiUP 
CRLL STfiCK 
JP STRCK 
ENO 
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STRCK 2D28 
LDRC 1E94 
BITC 22RR 
PLOT 22E5 
# 6062 


CHR$ EDITOR 


Questo character editor è molto differente da tutti quelli che ho fino ad ora 
provato e visto. Intanto, come al solito in questi programmi, ci si basa su una 
routine in L/M di ben 382 bytes per ottenere dei piacevoli e utili effetti, altri¬ 
menti non ottenibili. 

Come dice il nome, il programma serve per creare, modificare, in una so¬ 
la parola, editare, quei caratteri che utilizzeremo nelle nostre applicazioni 
grafiche. 

Usualmente questi caratteri verranno memorizzati nell'area degli U.D.G. 
ma, modificando opportunamente il programma, si possono memorizzare in 
altre zone di RAM. 

Lo schermo è stato diviso in due parti e si è scelto un metodo originale per 
disegnare i caratteri. Questi infatti si disegnano nella parte superiore dello 
schermo in un formato che è otto volte pii grande di quello originale visibile 
nella parte in basso a sinistra. 

In altre parole: 

si ha a disposizione una griglia di ben 32 per 32 caselle su cui disegnare. 

Di queste solo 32 x 16 sono contemporaneamente visibili sullo schermo e 
corrispondono alle prime 16 righe per 32 colonne del video. 

Come vedere le rimanenti caselle? 

Occorre dare qualche spiegazione. 

Nella parte superiore del video abbiamo un cursore che si muove con le 
modalità che più avanti verranno discusse. 

Scrivere un punto (che è poi una casella) alla posizione attuale del curso¬ 
re è molto semplice: o si disegna il carattere che possiamo vedere sopra il 
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tasto con il numero 8 o si elabora il byte degli attributi che appartiene a quel¬ 
la casella. 

È stata scelta quest'ultima possibilità e ciò per ragioni molto pratiche. 

La parte superiore dello schermo si comporta come una finestra di 512 
caselle e per mostrare le rimanenti 512 si fa ricorso a diverse routine in L/M 
il cui compito principale è di spostare il contenuto delle prime 512 locazioni 
della zona degli attributi del video in una zona ben precisa della RAM. 

Ciò viene fatto in generale modificando in più o in meno un puntatore che 
agisce su questa zona di RAM, in modo tale da realizzare una serie di «scrol- 
ling» nelle due direzioni verticali qualora i dati vengano poi ritrasferiti al 

Per concludere è possibile editare 16 caratteri grafici contemporanea¬ 
mente, costruendoli su una matrice 8 volte più grande di quella originale. 

In ogni momento è possibile osservare le dimensioni reali di ciò che si sta 
editando facendo riferimento in basso a sinistra nel riquadro indicato dalla 
freccia lampeggiante. 

Questo riquadro è la copia esatta di ciò che esiste nella parte superiore 
dello schermo e ne subisce ogni modifica, ad esempio lo spostamento nelle 
quattro direzioni premendo i seguenti tasti: 

A S 


Per spostare il cursore si usano i soliti tasti 
5 6 7 8 
da soli o in contem¬ 
poranea con il tasto 
CAPS SHIFT o 
SYMBOL SHIFT. 

In tal caso si disegna un punto o lo si cancella. Per rapide cancellazioni si 


Premendo invece i tasti 



si sposta il cursore di otto posizioni nelle quattro rispettive direzioni. 

Premendo il tasto H si porta il cursore in alto a sinistra, mentre premendo 
il tasto B si porta il cursore in basso a sinistra. Il tasto C esegue una copia su 
stampante di ciò che appare su video. 

Il tasto P permette di prendere un carattere e di disegnarlo alla posizione 
del cursore. Non c'è restrizione sul tipo di carattere: può essere grafico, 
compresi quelli su ogni tasto numerico, o qualsiasi altro presente sulla ta- 

Ogni carattere può inoltre essere disegnato in reverse e in modo specula¬ 
re rispetto all'originale. 

Il tasto O permette la memorizzazione in uno degli U.D.G., del carattere la 
cui matrice otto per otto è dedotta dalla posizione attuale del cursore. 

Dopo aver digitato questo programma bisogna salvarlo su nastro con un 
SAVE"CHR$ EDITOR”LINE 2090, accendere e spegnere il computer, e digi¬ 
tare il programma che contiene il L/M (VIDEO TRASF.) il cui prodotto andrà 
salvato in coda al programma precedente. 



1000 REM 

1005 REM CHR* EDITOR 
1010 REM 

1015 LET ink=7; LET p*p* 1 
1020 BORDER 1: INK irik ; PAPER p«p 
1025 GO SUB 1435: REM INIZIO 
1030 GO SUB 1845: REM CRS.ON 
1035 PAUSE 2 

1040 GO SUB 1870: REM CRS.OFF 
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1045 LET k*=INKEY*: LET k=CODE k* 

1050 IF k*="" THEN GO TO 1030 
1055 REM 

1060 IF k.=08 THEN GO SUB 1775: GO TO 1030 

1065 IF k=10 THEN GO SUB 1780: GO TO 1030 

1070 IF k-11 THEN GO SUB 1785: GO TO 1030 

1075 IF k=89 THEN GO SUB 1790: GO TO 1030 

1080 REM 

1085 IF k®*="5" THEN GO SUB 1720: GO TO 1030 

1090 IF k*="6" THEN GO SUB 1725: GO TO 1030 

1095 IF k*="7" THEN GO SUB 1740: GO TO 1030 

1100 IF k$**"8" THEN GO SUB 1755: GO TO 1030 

1105 REM 

1110 IF k*“"V THEN GO SUB 1810: GO TO 1030 

1115 IF k*="fe" THEN GO SUB 1815: GO TO 1030 

1120 IF kTHEN GO SUB 1820: GO TO 1030 
1125 IF k*="<" THEN GO SUB 1825: GO TO 1030 

1130 IF k*="0" THEN GO SUB 1810: GO TO 1030 

1135 REM 

1140 IF k*="R" THEN GO SUB 1630: GO TO 1030 

1145 IF k*="S" THEN GO SUB 1635: GO TO 1030 

1150 IF k*="W" THEN GO SUB 1640: GO TO 1030 

1155 IF k*-"Z" THEN GO SUB 1645: GO TO 1030 

1160 REM 

1165 IF k*-"!" THEN GO SUB 1920: GO TO 1030 

1170 IF k*“"M" THEN GO SUB 1930: GO TO 1030 

1175 IF k*="K" THEN GO SUB 1950: GO TO 1030 

1180 IF k*«"J" THEN GO SUB 1940: GO TO 1030 

1185 REM 

1190 IF k*-"P" THEN GO SUB 1305 

1195 IF k*="0" THEN GO SUB 1235 

1200 IF k*="H" THEN GO SUB 1910 

1205 IF k*="B" THEN GO SUB 1915 

1210 IF k*«"C" THEN GO SUB 1975 

1215 GO TO 1030 
1220 REM 

1225 REM SUB.STORE U.D.G. 

1238 REM 

1235 POKE 23617.2 

1240 INPUT FLRSH u;"R-U scesiia* 

1245 IF #*>CHR* 164 THEN GO TO 1235 
1250 IF »*<CHR* 144 THEN GO TO 1400 
1255 LET j=INT 
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1260 LET j»j+q+32*<3-INT ((m-bVo)) 

1265 FOR i»z TO 7 

1270 POKE < USR **+i^PEEK <.j+256*i>: NEXT i 

1275 OVER z: FOR i=z TO 20 

1260 PRINT AT 17,6+i;CHR* < 144+i > 

1285 NEXT i: OVER u. : GO TO 1400 
1290 REM 

1295 REM SUB. PICK CHR* 

1300 REM 

1305 INPUT "Carattere riflesso ? " ja* 

1310 IF a*="S" THEN POKE gr+15,31 

1315 INPUT INVERSE u;"Carattere in inverse 

'? ";a« 

1320 LET f-z: IF a**"S" THEN LET f*=u 
1325 POKE 23617,2 

1330 INPUT FLRSH u;"Scegli il carattere.."; 

a* 

1335 IF a*>CHR* 164 THEN GO TO 1305 

1340 IF a*="" THEN GO TO 1400 

1345 IF a*<CHR* 128 THEN LET i=PEEK 23606+2 

56#PEEK 23607+o*CODE a*: GO TO 1360 

1350 IF a*<CHR* 144 THEN LET i-roem+1: POKE 

gr+l,CODE a*: RRNDOMIZE USR gr: GO TO 1360 

1355 LET i“USR a* 

1360 LET xl=x 

1365 FOR .i*i TO i+7: LET x=xl 
1370 POKE rnem, PEEK j 
1375 FOR v=u TO o 

1380 IF USR rla-f THEN GO SUB 1790: GO TO 1 
390 

1385 GO SUB 1825 
1390 NEXT v: GO SUB 1725: NEXT ,i 
1395 LET x-xl: POKE gr+15,23 
1400 POKE 23617,z: POKE 23658,o 

1405 PRINT #ljfiT 0,0;"U.D.G -> 0=MEMORIZZA 

RIPRENDE" 

1410 PRINT #0;"H)OME B>QTTQM OOPY 0=DEL 
ETE" 

1415 RETURN 
1420 REM 

1425 REM SUB. GRIGLIA 
1430 REM 

1435 LET z=0: LET u=l: LET o=8 




1440 LET q=20545: OVER u.: CLS 

1445 LET m»31: LET t=255: LET p=175 

1450 LET 1=128: LET c*15: LET a=o*<21-c) 

1455 LET b-P-a: LET rnem=23296 

1460 LET 9r=31359; LET rla=ttr+9 

1465 LET new=31000: LET plus=31814 

1470 LET mÌTius=31035: LET dx=31081 

1475 LET sx=31140: LET su=31199 

1480 LET siu-31276: LET ranw=31060 

1485 LET vram-31068 

1490 FOR y=a TO P STEP o 

1495 PLOT z,y: DRRW t,z: NEXT y 

1500 FOR x=z TO t STEP o 

1505 PLOT x> a : DRRW z,b; NEXT x 

1510 PLOT z j p: DRRW t,z = DRRW z,-b 

1515 FOR y=7 TO w STEP o 

1520 PLOT z,y: DRRW 6,z: NEXT y 

1525 FOR x=16 TO 40 STEP o 

1530 PLOT x,33 : DRRW z,6: NEXT x 

1535 PLOT FLRSH u.;6,33: DRRW -4,4 

1540 PLOT 6,33: DRRW -2,z: PLOT 6,33: DRRW z 

,2 

1545 FOR x=z TO 20 

1550 PRINT INVERSE u.;RT 18,6+x;CHR* < 65+x > 
1555 NEXT x: GO SUB 1275 
1560 FOR i=z TO u: FOR j=z TO m STEP o 
1565 PRINT RT i#o,j; FLRSH u;"+" 

1570 NEXT j: NEXT i 

1575 PRINT RT 19,6;"CURS 5678+ CRPS+SYMB 
OL" 

1580 PRINT TRB 6;"JUMP J M I K * 8 Posizioni 
1585 PRINT TRB 6 ;"SHFT R Z W S x Sposta Fi 9 . 

1590 PRINT RT 16,28;"CHR*" 

1595 PRINT RT 17,28;"EDT." 

1600 POKE 23658,0 
1605 LET * x=z : LET y=x. : LET b=x 
1610 RRNDQMIZE USR new: RETURN 
1615 REM 

1620 REM SUB SHIFT SXxDX 
1625 REM 

1630 RRNDOMIZE USR sx: BEEP .l,b: RETURN 
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1635 RRNDOMIZE USR dx BEEP .1,-b: RETURN 
1640 RONDONIZE USR su: BEEP . l,y: RETURN 
1645 RONDONIZE USR 9iu: BEEP .1,-y: RETURN 
1656 REN 

1655 REN DISEGNO IL PUNTO 
1660 REN 

1665 PRINT OT y,x; FLOSH C OTTR <y,x >>=!>; PO 
PER i-nk;" " 

1670 PLOT OVER z;x+o,m-b: RETURN 
1675 REN 

1680 REN CONCELLO IL PUNTO 
1685 REN 

1690 PRINT OT y,x; FLOSH <OTTR <y,x>>=l>; PO 
PER p«p;" " 

1695 PLOT OVER z; INVERSE u;x+o.,M-b 
1780 RETURN 
1705 REN 

1710 REM SET DELLO POSIZIONE 
1715 REN 

1720 BEEP .l*<x=z>,y: LET x=x-<x>z>: RETURN 
1725 LET b=b+<b<m>: BEEP ,l*(b»m),-y 
1730 IF y=c T'HEN RONDONI ZE USR plus; BEEP . 
l#<b**m> J -20 

1735 LET y-y+<y<c>: RETURN 
1740 LET b*b-< b >z >: BEEP .1#<b=z >,y 
1745 IF y*z THEN RONDOMIZE USR minus: BEEP 
. 1 #< b=z >, 20 

1750 LET y*y-< y>z): RETURN 

1755 BEEP .l*<x=m> J -y: LET x=x+<x<m): RETURN 
1760 REM 

1765 REM PLOT E SET CURSORI 
1770 REN 

1775 GO SUB 1665: GO TO 1720 
1780 GO SUB 1665: GO TO 1725 
1785 GO SUB 1665: GO TO 1740 
1790 GO SUB 1665: GO TO 1755 
1795 REM 

1880 REN DELETE E SET CURSORI 
1805 REM 

1810 GO SUB 1690: GO TO 1720 
1815 GO SUB 1690: GO TO 1725 
1828 GO SUB 1690: GO TO 1740 
1825 GO SUB 1690: GO TO 1755 
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1830 REM 

1835 REM DISEGNA CURSORI 
1840 REM 

1845 PRINT AT n,x; INK 9j FLASH < ATTR (u,x)> 
=1>J PAPER Oj"+“ 

1850 PLOT x+o,ro-b: RETURN 
1855 REM 

1860 REM CANCELLA CURSORI 
1865 REM 

1870 PRINT AT y ,xì FLASH < ATTR <y,x)>«l>; PA 
PER Oì " + 11 

1875 PLOT INVERSE z;x+o,m-b 
1880 RETURN 
1885 REM 

1890 REM SUB HOME x BOTTOM 
1895 REM LEFT 8. RIGHT 
1900 REM UPxDQWN 

1985 REM 

1910 LET x=z: FOR i=b TO u STEP -u: GO TO 19 
25 

1915 LET x=z: FOR i=b TO r«: GO TO 1935 

1920 FOR i*u. TO o 

1925 GO SUB 1740 : GO TO 1955 

1930 FOR i«u TO o 

1935 GO SUB 1725: GO TO 1955 

1940 FOR i-u. TO o 

1945 GO SUB 1720: GO TO 1955 

1950 FOR i=u TO o: GO SUB 1755 

1955 NEXT i: BEEP ,1,-y: RETURN 

I960 REM 

1965 REM SUB COPY 
1970 REM 

1975 INPUT FLASH u;"COPY ?";a* 

1980 GO SUB 1400 

1985 IF **<>"S" THEN RETURN 

1990 RANDOMIZE USR vrarn 

1995 LET set=o*ink+ink 

2000 LET del=o*pap+i.Tik 

2005 FOR i=z TO c: FOR j=z TO m 

2010 LET at-ATTR (i,j) 

2015 IF at=set OR at*set+l THEN PRINT AT i, 
j; BRIGHT 

2020 NEXT j: NEXT i: BEEP .l,y 



2025 REM 
2030 COPY 
2035 REM 

2040 FOR i=z TO c: FOR j=z TO m 
2045 LEI at=RTTR <i, j ) 

2050 IF «itOdtl FINO at<>del+l THEN FRI NT RI 

i,j; 

2055 NEXT j: NEXT i: BEEP .1,y 
2060 RRND0MI2E USR rarov: RETURN 
2065 REM 

2070 REM SUB SRVE 
2075 REM 

2060 CLERR : SRVE "CHR* EDITOR" LINE 2090 
2085 SRVE "TRRSF"CODE 31000,382: STOP 
2090 CLERR 30999: LORD ""CODE : RUM 


ASS.VIDEO TRASF 


Lo scopo principale di questa serie di routines è di servire il programma 
CHR$ EDITOR nelle sue funzioni. Tuttavia nessuno vieta di modificarne il 
contenuto per altri usi. 

La funzione principale è quella di muovere su una zona di RAM di 1024 by- 
tes. una finestra virtuale di 512 bytes e mostrarli come attributi delle prime 
512 locazioni dello schermo (sul file degli attributi). 

In pratica è come se si gestissero gli attributi di 32 linee di schermo an¬ 
ziché 24. 

Ogni elaborazione si basa perciò su un puntatore che opportunamente 
modificato consente di spaziare su tutta la suddetta zona di RAM, prelevan¬ 
do dal video gli attributi delle prime 16 linee e memorizzandoli in RAM. Modi¬ 
ficando poi il puntatore, aggiungendogli non a caso 32, e riportando il tutto di 
nuovo nelle prime 512 locazioni del file degli attributi, il risultato sarà quello 
di vedere il tutto spostato verso l’alto. In definitiva si mostrano gli attributi 
delle linee a partire dalla 2 fino alla 17 delle ipotetiche 32 di cui prima si è 
parlato. 

Il procedimento vale anche se condotto in modo inverso. 
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Il resto delle routlnes realizza uno shift circolare nelle quattro direzioni a- 
gendo su queste 1024 locazioni di RAM. 

Contemporaneamente tale spostamento viene esteso alla zona dello 
schermo in basso a sinistra. 

Commento: 

LINEE da 200 a 240: 

è il punto in cui si esegue il "set up" delle 1024 locazioni di RAM citate. 
Esse vengono riempite con il valore delle prime 512 locazioni del file degli 
attributi (prime 16 linee di schermo per due volte), poi viene memorizzato 
il valore del puntatore a detta area di RAM. 

LINEE da 280 a 380: 

queste istruzioni prelevano le solite 512 locazioni e le memorizzano in 
RAM in base al valore del puntatore, quindi si incrementa quest’ultimo di 
32 unità e con il nuovo valore si ritrasferisce tutto al video. 

LINEE da 420 a 520: 

esattamente come prima ma anziché aggiungere si sottrae 32 al puntato- 


LINEE da 560 a 680: 

tra queste istruzioni vi sono diversi punti di accesso la cui funzione è facil¬ 
mente intuibile. Le più usate sono quelle di trasferimento dal video alla 
RAM e viceversa. 

LINEE da 720 a 840: 

iniziano qui le routines di rotazione e questa chiamata SHDX esegue la 
rotazione verso destra di tutte le 1024 locazioni già dette. 

LINEE DA 880 a 1030: 

SHBDX esegue subito dopo la rotazione verso destra, pixel per pixel, del¬ 
la porzione di video a partire dalle coordinate x=8yx=32 estendendola 
per 4 byte su ciascuna linea di pixels. 

LINEE da 1070 a 1380: 
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SHSX e SHBSX come per le precedenti routine solo che lo spostamento è 
fatto verso sinistra. 

LINEE da 1420 a 1580: 

SHV1 esegue la rotazione verticale verso l'alto delle 1024 locazioni di 
RAM mentre 

LINEE da 1620 a 1880: 

si esegue la rotazione verso l'alto della porzione di schermo già citata. 
LINEE da 1920 a 2410: 

come le precedenti routines ma con la rotazione fatta verso il basso. 
LINEE da 2450 a 2480: 

sono poche istruzioni che servono per depositare all'indirizzo MEMI otto 
bytes che sono la matrice di definizione del carattere grafico presente sui 
tasti numerici. Con i registri dello Z-80, A e B contenenti il codice di tale 
carattere si chiama la subroutine CONV (OB3B HEX) che penserà a 
creare la rispettiva matrice di definizione e porla all'indirizzo contenuto in 
HL. 

LINEE da 2520 a 2590: 

è una routine che il BASIC chiama almeno otto volte quanti sono i BIT in 
un byte. Viene eseguita una rotazione a sinistra (o a destra in base al va¬ 
lore messo all’Indirizzo 7A8E HEX) del byte contenuto in MEM. Il risultato 
1 o 0, cioè lo stato del flag di carry, viene dato al registro C con B sempe 
a zero e quindi ritornato al BASIC. 


1000 REM 

1005 REM HEX-CODE Caricatore 
1010 REM 

1015 CLEFlE 30959 

1030 PRINT FLASH 1 j AT 12,1£ j"ATTENDERE ! 
1025 FOR 31=31000 TO 31382 
1030 READ a*: BEEP .01,50 
1035 PR1NT INVERSE.1;RT 14,16;a* 

1040 LET h=CuDE a*CÌ>~48 
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1045 LEI l >>"a"> 

1050 LET 1=C0DE a*<2>-48 
1055 LET l=>l-7#(a*<2»"@" > 

1060 POKE a., 16#h+l: NEXT a 
1065 F'R I NT RT 14,11; " Sa 1 vataaa io'" 
1070 SflVE "TRASF"CODE 31000,382 
1075 REM 

1080 REM DOTI PROGRAMMA L.M. 

1085 REM 

1090 REM SUE.VIDEO TRASF 

1095 REM 

1100 REM PRIMA PARTE 

1105 REM 


1110 DATA "11 1 
1115 DATA "CD 1 
1120 DATA "18' 
1125 DATA "95‘ 
1130 DATA "A7‘ 
1135 DATA "20' 
1140 DATA "5C 
1145 DATA "C5 1 
1150 DATA "42' 
1155 DATA "00' 
1160 DATA "2A‘ 
1165 DATA "18' 
1170 DATA "21' 
1175 DATA "ED 1 
1180 DATA "DD‘ 
1185 DATA "DD' 
1190 DATA VE' 
1195 DATA "2B‘ 
1200 DATA "OD", 
1205 DATA "01", 
1210 DATA "AA", 
1215 DATA "GB' 
1220 REM 
1225 REM 
1230 REM 
1235 DATA "30' 
1240 DATA "EA' 
1245 DATA “21' 
1250 DATA "66' 
1255 DATA "01" 


'58","7B","CD 1 

“2B"!"CD"!"5C 
'7A !I , "E5" , "01 ' 
'ED","42","E1‘ 
'00","09","18' 
'79","ED","4B‘ 
■21","58","7B 1 
'El","D0","A7‘ 
‘ED","42","22" 
'95",VA","11' 
■07","ED","5B‘ 

'B0","C9"!"CD" 
'21","57","7F" 

FF","DD"!"77" 
10","F6","DD" 
20","EB","CD" 
08","20","C5" 
22","E5","06" 
1E","23","10" 

SECONDA PARTE 

'02","CB","FE", 
C9","CD","5C", 
58","7B","0E", 
00","06","20", 
DD","77","00", 


"60","79“ 


VE' 



’0E","20' 
■20","DD' 
■00","DD' 
"74","01' 
"54","79' 
’ 05","CD' 


’FB","El 


■CI","10" 
' 73 ". "DD" 
'20","DD" 
■DD", VE" 
■DD","23" 









126® DATA "10","F6" 
1265 DATA "20","EB" 
1270 DATA "20","20" 
1275 DATA "22","E5" 
1290 DATA "16","2B" 
1285 DATA "02","CB" 
1280 DATA "C9","CD" 
1295 DATA "00","DD" 
1300 DATA "DD","E5" 
1305 DATA "DD","7E" 
1310 DATA "DD" , 11 19" 
1315 DATA "E0","DD" 
1320 DATA "20","E6" 
1325 DATA “08",“1F" 
1330 DATA "CD","AA" 
1335 DATA "F5","EB" 
1340 DATA "22","CI" 
1345 REM 

1350 REM TERZA 
1355 REM 

136© DATA "FI","77* 
1365 DATA "4F","08' 
1370 DATA "CD",“5C‘ 
1375 DATA "DD","21 1 
1380 DATA "DD","E5 1 
1385 DATA "00","DD' 
1390 DATA "00",“DD 1 
1395 DATA "74","20' 
1400 DATA "0D","20 1 
1405 DATA "0i","08 ! 
1410 DATA "C5","CD 1 
1415 DATA "7E","F5 1 
1420 DATA "AA","22 1 
1425 DATA “78","FÉ 1 
1430 DATA "77","CI 1 
1435 DATA "08","3D 1 
1440 DATA "8F","78‘ 
1445 DATA "3B","0B' 
1450 DATA "00","5B 1 
1455 DATA "CB","11' 


7918 0000 


, "DD","74","FF", "0D" 
, "CD","54", "79", "01" 
, "C5","05","CD", "AA" 
, "06","04","A?" , "CB" 
, "10","FB","El","30" 
, "C6","Cl","10","EA" 
, "5C","79","11", "20" 
, "21","58","7B","4B" 
, "43","DD","66","00" 
, "20","DD","77","00" 
, "10","F6","DD","74" 
, "El","DD","23","0D" 
, "CD","54",“79","01" 
, "3E","04","08","C5" 
, "22","Cl","C5","7E" 
, "C5","05","CD","AA" 
, "7E","12","10","F5" 

PARTE 

, "Cl","79","C6","08" 
,"3D","20","El","C9" 
, "79","11","E0","FF" 
, "38","7F","0E","20" 
, "06","20","DD","66" 
, "7E","£0","DD","77" 
, "19","10","F6","DD" 
, "DD","El","DD","23" 
,"E5","CD","54","79" 
, "00","3E","04","08" 
, "AA","22","Cl","C5" 
, "EB","C5","04","CD" 
, "Cl","7E","12","04" 
,"1F","20", "FI", "FI" 
, "79","C6","08","4F" 
, "20","DD","C9","06" 
, "21","01","5B","C3" 
, "AF","4F","47","3A" 
,"17","32","80","5B" 
,"C9","58","7B" 


0RG 31000 











0010 J 

@020 ; "Routine" 

0030 ; "Sisterna" 

0040 ; 

22RR 0050 BITC EQU 22ARH 

0B3B 0060 CONV EQU 0B3EH 

0070 ; 

0080 ; "Variab." 

0030 

7B58 0100 INIZ EQU 31576 

0200 0110 COSI EQU 0200H 

7D58 0120 FINE EQU INIZ+COST 

5800 0130 VIDE EQU 5800H 

0020 0140 BITE EQU 0020H 

5B00 0150 MEM EQU 5B00H 

5B01 0160 MEMI EQU MEM+1 

0170 ; 

0180 , 

0130 ; 

7318 11587B 0200 SET LD DE.INIZ 

731B CD6073 0210 CRLL MEMO 

791E CD6079 0220 CRLL MEMO 

7921 21587B @230 HOME LD HL.INIZ 

7324 182B 0240 JR TRRS 

0250 , 

0260 ; 

0270 

7926 CD5C79 0280 PLUS CRLL VRAM 

7929 2R957A 0290 LD HL.< RAM > 

792C E5 0300 PUSH HL 

792D 01587D 0310 LD BC.FINE 

7930 R7 0320 AND R 

7931 ED42 0330 SBC HL.BC 

7933 E1 0340 POP HL 

7934 D0 0350 RET NC 

7935 012000 0360 LD BC.BITE 

7938 03 0370 RDD HL.BC 

7939 1816 0380 JR TRRS 

0390 ; 


0410 ; 

793B CD5C79 0420 MINUS CRLL VRAM 
793E ED4B957R 0430 LD BC.CRRM) 
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7942 C5 @440 PUSH BC 

7943 21587B @458 LD HL,INIZ 

7946 A7 @460 AND fi 

7947 ED42 0470 SBC HI_,BC 

7949 E1 0480 POP HL 

794A D0 0490 RET NC 

794B R7 0500 AND A 

794C 012000 0510 LD BC..BITE 

794F ED42 @520 SBC HL,BC 

0530 j 
0540 , 

8550 ; 

7951 22957A 0560 TRAS LD <RAM >,HL 

0570 

7954 2A957A 0580 RAMV LD HL,< RAM > 

7957 110058 0590 LD DE,VIDE 

795A 1807 0600 JR LDBC 

0610 ; 

0620 
0630 ; 

795C ED5B957A 0640 VRAM LD DE,< RAM > 

7960 210058 0650 MEMO LD HL,VIDE 

7963 010002 0660 LDBC LD BC,CQST 

7966 EDB0 0670 LDIR 

7968 C9 0688 RET 

0690 
0700 ; 

0710 j 

7969 CD5C79 0720 SHDX CRLL VRAM 

796C DD21577F 0730 LD IX,INI2+03 

FFH 

7970 0E20 0740 LD C,2@H 

7972 DD6600 0750 LB@ LD H,CIX+0> 

7975 0620 0760 LD B,20H 

7977 DD7EFF 0770 LB1 LD A,(IX+0FFH 


797A DD7700 @780 LD <IX+@),A 

797D DD2B 8790 DEC IX 

797F 1@F6 @800 DJNZ LB1 

7981 DD7401 0810 LD <IX+1>,H 

7984 0D 0820 DEC C 

7985 20EB 0830 JR N2,LB@ 

7987 CD5479 @84© CALL RAMV 



0850 ; 

0860 ; 

0870 

798A 010820 0880 SHBDX LD BC,2008H 

798D C5 0890 LB2 PUSH BC 

798E 05 0900 DEC B 

798F CDAR22 0910 CRLL BITC 

7992 E5 0920 PUSH HL 

7993 0604 0930 LD B,4 

7995 R7 0940 AND fi 

7996 CB1E 0950 LB3 RR < HL > 

7998 23 0960 INC HL 

7999 10FB 0970 DJNZ LB3 

799B E1 0980 POP HL 

799C 3002 0990 JR HC..LB4 

799E CBFE 1080 SET 7,<HL> 

79R0 CI 1010 LB4 POP BC 

79R1 10ER 1020 DJNZ LB2 

79A3 C9 1030 RET 

1040 ; 

1050 ; 

1060 ; 

79R4 CD5C79 1070 SHSX CRLL VRAM 

79R7 DD21587B 1088 LD IX,INIZ 

79RB 0E20 1090 LD C,20H 

79RD DD6600 1100 LB5 LD H,<IX+0> 

79B0 0620 1110 LD B,20H 

79B2 DD7E01 1120 LB6 LD fl,<IX+l) 

79B5 DD7700 1130 LD <IX+0>,R 

79B8 DD23 1140 INC IX 

79BR 10F6 1150 DJNZ LB6 

79BC DD74FF 1160 LD <IX+0FFH>, 

H 

79BF 0D 1170 DEC C 

79C0 20EB 1180 JR NZ.LB5 

79C2 CD5479 1190 CRLL RRHV 

1200 ; 

1210 ; 

1220 ; 

79C5 012020 1230 SHBSX LD BC,2020H 

79C8 C5 1240 LB7 PUSH BC 

79C9 05 1250 DEC B 

79CR CDRR22 1260 CRLL BITC 





79CD E5 1270 PUSH HL 

79CE 0604 1280 LD B,4 

79D0 fi? 1290 AND A 

79D1 CB16 1300 LB8 RL <HL> 

79D3 2B 1310 DEC HL 

79D4 10FB 1320 DJNZ LB8 

79D6 E1 1330 POP HL 

79D7 3002 1340 JR HC,LB9 

79D9 CBC6 1350 SET 0,<HL> 

79DB CI 1360 LB9 POP BC 

79DC 10EA 1370 DJNZ LB7 

79DE C9 1380 REI 

1390 ; 

1400 ; 

1410 ; 

79DF CD5C79 1420 SHV1 CALL VRAM 

79E2 112000 1430 LD DE,20H 

79E5 DD21587B 1440 LD IX,INIZ 

79E9 4B 1450 LD C,E 

79EA DDE5 1460 LB10 PUSH IX 

79EC 43 1470 LD B,E 

79ED DD6600 1480 LD H,<IX+0> 

79F0 DD7E20 1490 LB11 LD A,<IX+20H> 
79F3 DD7700 1508 LD <IX+0>,R 

79F6 DD19 1510 ADD IX,DE 

79F8 10F6 1520 DJNZ LB11 

79FA DD74E0 1530 LD < IX+0E8H 

79FD DDE1 1540 POP IX 

79FF DD23 1550 INC IX 

7A01 0D 1560 DEC C 

7A02 20E6 1570 JR NZ,LB10 

7A04 CD5479 1580 CALL RAMV 

1590 ; 

1600 ; 

1610 

7A07 01081F 1620 SHBV1 LD BC,1F08H 

7A0A 3E04 1630 LD A,4 

7R0C 08 1640 LB12 EX AF,A J F' 

7A0D C5 1650 PUSH BC 

7A0E CDAA22 1660 CALL BITC 

7A11 CI 1670 POP BC 

7R12 C5 1680 PUSH BC 
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7R13 7E 1690 LD fl,<HL> 

?fì14 F5 1700 PUSH HF 

7R15 EB 1710 EXX EX DE,HL 

7fll6 CS 1720 PUSH BC 

7A17 05 1730 DEC B 

7R18 CDRR22 1740 CflLL BITC 

7R1B CI 1750 POP BC 

7R1C 7E 1760 LD fl,<HL) 

7R1D 12 1770 LD CDE),R 

7R1E 10F5 1780 DJNZ EXX 

7R20 FI 1790 POP RF 

7R21 77 1800 LD <HL>,R 

7R22 CI 1810 POP BC 

7R23 79 1920 LD fi,C 

7R24 C608 1830 HDD 8 

7R26 4F 1840 LD C,R 

7R27 08 1850 EX RF,A'F' 

7R28 3D 1860 DEC fl 

7R29 20E1 1870 JR NZ,LB12 

7R2B C9 1880 REI 

1890 ; 

1900 ; 

1910 i 

7R2C CD5C79 1920 SHV2 CRLL VRAM 

7R2F 11E0FF 1930 LD DE,0FFE0H 

7R32 DD21387F 1940 LD IX,FINE+01 

E0H 

7R36 0E20 1950 LD C,20H 

7R38 DDE5 I960 LB13 PUSH IX 

7R3R 0620 1978 LD B,20H 

7R3C DD6600 1980 LD H,<IX+0> 

7R3F DD7EE0 1990 LB14 LD R,<IX+0E0H 

i> 

7R42 DD7700 2000 LD <IX+0>,fl 

7R45 DD19 2010 RDD IX,DE 

7R47 10F6 2020 DJNZ LB14 

7R49 DD7420 2030 LD <IX+20H>,H 

7R4C DDE1 2040 POP IX 

7R4E DD23 2050 INC IX 

7R50 0D 2060 DEC C 

7R51 20E5 2070 JR NZ,LB13 

7R53 CD5479 2080 CRLL RRMV 

2090 ; 
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2100 ; 

2110 ; 

7A56 010800 2120 SHB2 LD BC,0003H 

7A59 3E04 2130 LD A.4 

7A5B 08 2140 LEI5 EX AF-.A'F' 

7A5C C5 2150 PUSH BC 

7A5D CDAA22 2160 CAL.L BITC 

7A60 CI 2170 POP BC 

7A61 C5 2180 PUSH BC 

7A62 7E 2190 LD R,<HL> 

7A63 F5 2200 PUSH AF 

7A64 EB 2210 EX1 EX DE,HL 

7A65 C5 2220 PUSH BC 

7A66 04 2230 INC B 

7A67 CDAA22 2240 CALL BITC 

7A6A CI 2250 POP BC 

7A6B 7E 2260 LD A,<HL> 

7A6C 12 2270 LD <DEA 

7A6D 04 2280 INC B 

7A6E 78 2290 LD A,B 

7A6F FE1F 2300 CP 1FH 

7A71 20F1 2310 JR NZ,EX1 

7A73 FI 2320 POP AF 

7A74 77 2330 LD <HL>,R 

7A75 CI 2340 POP BC 

7A76 79 2350 LD A,C 

7R77 C608 2360 ADD 8 

7A79 4F 2370 LD C,A 

7A7R 08 2380 EX AF,R'F' 

7A7B 3D 2390 DEC A 

7A7C 20DD 2400 JR N2.LB15 

7A7E C9 2410 REI 

2420 ; 

2430 ; 

2440 ; 

7A7F 0686 2450 GRAF LD B.86H 

7A81 78 2460 LD A,B 

7A82 21015B 2470 LD HL,MEMI 

7A85 C33B0B 2480 JP CQNV 

2490 j 
2500 ; 

2510 j 

7A88 AF 2520 RLA XOR A 
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71=189 4F 
7fi8H 47 
7R8B 3R005B 
7R8E 17 
7R8F 32005B 
7892 CB11 
7FI94 C9 

7895 587B 

RAM 7895 
RLR 7888 
GR8F 787F 
EX1 7864 
LB15 785B 
SHB2 7856 
LB14 783F 
LB13 7838 
SHV2 782C 
EXX 7815 
LB12 780C 
SHBV1 7807 
LB11 79F0 
LB10 79E8 
SHV1 79DF 
LB9 79DB 
LB8 79D1 
LB7 79C8 
SHBSX 79C5 
LB6 79B2 
LB5 798D 
SHSX 7984 
LB4 7980 
LB3 7996 
LB2 798D 
SHBDX 7988 
LB1 7977 
LB0 7972 
SHDX 7969 
LDBC 7963 
MEMO 7960 
VRRM 795C 
RAMV 7954 


2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 ; 
2610 R8M 
2620 


LD C, 8 

LD B, 8 

LD A,<MEM> 
RLR 

LD < MEM >, 8 
RL C 
RET 

DEFW IN12 
END 



TRFIS 7951 
MINUS 793B 
PLUS 7926 
HOME 7921 
SET 7918 
MEMI 5B01 
MEM 5B80 
BITE 0020 
VIDE 5800 
FINE 7D58 
COST 0200 
INIZ 7B58 
CONV 0B3B 
BITC 22flfl 
# 620B 


COUNTER 


Questo è un programma che ho chiamato così poiché simula in modo 
molto realistico il «moto» di un contatore, ad esempio un contachilometri. 

La tecnica utilizzata consiste nel modificare ripetutamente il puntatore 
che definisce la disposizione in memoria degli U.D.G. cioè dei caratteri gra¬ 
fici definiti dall'utente. 

Occorre dapprima definire come U.D.G. i seguenti caratteri grafici: 


U.D.G. 

ABCDEFGHIJK 

01234567890 

A questo pensa automaticamente il programma andando a prelevare i dati 
che definiscono tali numeri dalla ROM all’indirizzo 15744 e memorizzandoli 
a partire dal primo carattere grafico. 

Come accennato, per realizzare questa simulazione, si modifica il conte¬ 
nuto del byte basso della variabile di sistema UDG. 
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esempio forse chiarirà un poco le idee: 


supponiamo di voler stampare il carattere grafico associato alla lettera “A" 
(cosi come viene fatto nelle linee 1125, 1145,1155 del programma). Questa 
è un'operazione molto semplice, ma modificando il valore della variabile 
suddetta, aggiungendole ad esempio 1, le cose cambiano. Sempre stampan¬ 
do l'U.D.G. associato ad "A", il risultato è quello di stampare un carattere la 
cui matrice di definizione è un una combinazione della matrice originale con 
parte di quella appartenente al carattere successivo. 

Il risultato che si ottiene in questa applicazione è quello di vedere i digits 
del numero stampato al centro dello schermo ruotare a scatti di un pixel per 
volta simulando molto bene, come già detto, il "moto" di un contachilometri. 


1000 REM 

1005 REM SIMULAZIONE DEL MOTO 
1010 REM DI UH CONTATORE 
1015 REM 

1020 LET u.*23675 : LET p=15?44 
1025 LET lo-88: LET hi*255 
1030 LET mx*lo+72: LET ov-mx+7 
1035 LET *=lo: LET b-a: LET c-a 
1040 LET d*a: LET r-11: LET t-16 
1045 REM 

1050 REM U.D.G. * 65368 
1055 REM 

1060 POKE uj1o: POKE u+l,hi 
1065 REM 

1070 LET ,j=0: FOR i*P TO P+80 
1075 POKE USR "a"+J,PEEK i 
1080 LET j-J+1: NEXT i 
1085 LET j-0: FOR i-P TO P+7 
1090 POKE USR "k"+j J PEEK i 
1095 LET J-J+1i NEXT i 
1100 GO SUB 1185 
1105 REM 

1110 REM COUNTER 

1115 REM 

1120 POKE u,i: LET a=a+l 
1125 PRINT AT r,t;"A" 

1130 POKE u. j b : LET b-b+<a>rox> 
1135 PRINT AT r,t-l;"A” 



1140 POKE u,c; LET c"c+<b>nx> 
1145 PRINT RT r, t-2;"R" 

1150 POKE u,d: LET d«d+<c>mx> 
1155 PRINT RT r,t~3;"fl" 

1160 IF *>OV THEN LET *-lo 
1165 IF b>ov THEN LET b-lo 
1170 IF c>ow THEN LET c-lo 
1175 IF d>ov THEN LET d-lo 
1180 GO TO 1120 
1185 PLOT < t-4 >#8,177-r*8 
1190 DRRW 48,0: DRRW 0,-11 
1195 DRRW -48,0: DRRW 0-11 
1200 PRINT RT r-2,t-4;"ROLLING" 
1205 PRINT RT r+2,fc-4;"DIGIT8" 
1210 RETURN 


GRAF 


Questo programma sarà utile a chi studia i grafici delle funzioni matemati¬ 
che. Infatti è in grado di plottare su video con ottima approssimazione l’an¬ 
damento di una funzione matematica entro un intervallo di definizione della 
funzione stessa impostato dall’utente. 


Il programma chiede tre parametri: 

1) la funzione y = f( x ) che si desidera studiare; 

2) la definizione di calcolo (numero dei punti in cui si deve calcolare la fun¬ 
si l’intervallo di studio. 


Maggiore è il numero dei punti in cui si calcola la funzione, migliore è la 
definizione, cioè ia precisione con cui verrà disegnata la curva sul video. Un 
valore accettabile è 40-50 punti, ma questo varia col tipo di funzione e inter¬ 
vallo di studio. 



Le caratteristiche di questo programma sono diverse: 

1) scalatura automatica; 

2) posizionamento assi automatico; 

3) il programma deve funzionare, salvo modifiche, in unione ad una parte in 
L/M in grado di generare caratteri di diverse dimensioni in qualsiasi pun¬ 
to del video. Questa parte in l/M è fornita con ogni Spectrum nella cas¬ 
setta in dotazione, e, in genere, si trova in coda ad ogni programma di ta¬ 
le cassetta. 

Dopo aver digitato GRAF e salvato su nastro in ogni caso, sarà necessario 
eseguire un CLEAR 32255 e caricare il codice macchina del programma ci¬ 
tato. 

Per finire salvare il tutto con un GOTO 1775. 
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1000 CLS : LET n—0 

1005 INPUT "F(x> - LINE y* 

1010 INPUT "Definizione del calcolo » 

NE p* 

1015 IF P*<>"" THEN LET n-VflL p* 

1020 IF n<10 THEN GO TO 1010 
1025 DIM a(n>: DIM b(n) 

1030 DIM x<n>: DIM y<n) 

1035 DEF FN y<x>-VFIL y* 

1040 INPUT "xmin *";xl;“ xmax » " ;x2 
1045 IF x2<=xl THEN GO TO 1040 
1050 LET dx»x2-xl: LET sx-254/dx 
1055 FOR i-1 TO n: LET x< i )»xl+< i-1 >*dx/-< 
1>+.001 

1060 LET y<i)*FN y< x< i > > : NEXT i 
1065 BEEP .2,20 

1070 LET yl-FN y<x< 1 >>: LET y2-FN y<x<l>> 

1075 FOR i-1 TO n 

1080 IF y< i Xyl THEN LET yl=y< i > 

1085 IF y<i>>y2 THEN LET y2«y<i> 

1090 NEXT i: BEEP .2,20 

1095 LET dy-y2~yl: LET sy-174^dy 

1100 LET s-sy: IF dx^dy>254^174 THEN LET 

=sx 

1105 LET dx*dx*s: LET dy=dy*s 
1110 LET x3=127-dx/2 
1115 LET y3-87-dy^2 
1120 FOR i-1 TO ri 




1125 LET »<i>-<x<i >-xl>*s+x3 

1130 LET b<i>•< y<i >-yl >*s+y3 

1135 NEXT i 

1140 LET x4-*<l>-xl#s 

1145 LET y4=y3-yl*s 

1150 GO SUB 1360 

1155 GO SUB 1455: GO SUB 1500 

1160 PLOT 0,0: DRflW 0,175: DRflW 255,0 

1165 DRflW 0,-175: DRflW -255,0 

1170 FOR i-1 TO fl-l 

1175 PLOT *<i>,b<1 ) 

1180 DRflW *(i+1>-*<i>,b<i + 1>-b<i) 

1185 NEXT i: FLASH 1 

1190 GO SUB 1210: FLASH 0: PAUSE 0 

1195 INPUT "Cls ? "j LINE cS 

1200 IF cS**"" OR C*=“s" OR c*-"S“ THEN CLS 

1205 GO TO 1010 

1210 REM 

1215 REM Sub CHR* Gensrator* 

1220 REM 

1225 LET p*-"f<x>«": GO SUB 1270 
1230 LET yy=l 76: LET xs=*l : LET ys-2 
1235 LET xx>( 256-8*xs*LEN P*V2 
1240 GO SUB 1680 

1245 LET i-23306: POKE i,xx: POKE i+l,yy 
1250 POKE i+2,xs: POKE i+3,ys: POKE i+4,8 
1255 LET i-i+4: FOR u-1 TO LEN P* 

1260 POKE i+u,CODE P*<u>: NEXT u 

1265 POKE i+u,255: LET u=USR 32256: RETURN 

1270 REM 

1275 REM Sub Trov* Funzioni 
1280 REM 

1285 FOR u-1 TO LEN y« 

1290 LET b*-y*C u >: LET w-CODE b* 

1295 IF w-165 THEN LET b*-'*RND" 

1300 IF w-167 THEN LET b*-"PI" 

1305 IF w<178 THEN GO TO 1325 

1310 RESTORE 1350 

1315 FOR i-0 TO 1l-<189-w) 

1320 READ b*: NEXT i 
1325 LET p*=p¥+b* 

1330 NEXT u: RETURN 
1335 REM 
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1340 REM DATA Funzioni 
1345 REM 

1350 DATA "SIN" , "CG8" , "TAM" , "ASM" , "ACS" " AT 
1355 DATA "LN", "EXP","INT","SOR","SGN","ABS 
1360 REM 

1365 REM Sub Stampa Ymax & Ymin 
1370 REM 

1375 LET xs=l: LEI ys=l 
1380 LET yl-IHT <yi#10V10 
1385 LET «2= INT <y2*10V10 
1390 LET xx«x4+2 
1395 LET yy-175-<y4+s*yl ) 

1400 LET p*«STR» yl: GO SUB 1415 
1405 LET yy“175-< y4+s*y2 ) 

1410 LET p*=STR* y2 

1415 IF yy>165 THEN LET yy=165 

1420 IF yy<0 THEN LET yy=2 

1425 IF xx<0 THEN LET xx=0 

1430 IF xx+8#LEN p*>255 THEN LET xx=255-8* 

LEN P* 

1435 GO TO 1245 
1440 REM 

1445 REM Sub Stampa Xmax 8« Xmin 
1450 REM 

1455 LET xl-INT <xl#10V10 
1460 LET x2=INT <x2*10V16 
1465 LET xx-a<l): LET yy»177-y4 
1470 LET p*=STR* xl: GO SUB 1415 
1475 LET xx»a<n> 

1480 LET P*=STR* x2: GO TO 1415 
1485 REM 

1490 REM Sub Parametri 
1495 REM 

1500 LET x5*INT x4 

1585 LET y5=INT y4 

1510 LET xx«x5-3: LET yy=171-y5 

1515 IF xx<2 OR xx>255 THEN GO TO 1530 

1520 IF yy<2 OR yy>167 THEN GO TO 1530 

1525 LET p*-"o": GO SUB 1415 

1530 LET x5«ABS x5: LET y5-HBS y5 

1535 IF y5>175 THEN LET y5-y5-INT <y5xi76> 
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*176 

1540 IF x5>255 THEN LET x5«x5-INT <X5/255 
*255 

1545 LET r=s: IF r>100 OR r<5 THEN LET r- 
0 

1550 REM 

1555 REM Sub Stampa fisse Y 
1560 REM 

1565 IF x4<0 OR x4>255 THEN GO TO 1630 
1570 PLOT x5,0 '■ DRfiW 0,175 
1575 FOR u=y5 TO 175 STEP r 
1580 PLOT x5, u. : DRfiW 2*<x5<254>,0 
1585 PLOT x5,u: DRfiW -2*<x5>i>,0 
1590 NEXT u 

1595 FOR u-y5 TO 0 STEP -r 
1600 PLOT x5, u : DRfiW 2*<x5<254>,0 
1605 PLOT x5, u : DRfiW -2*<x5>l>,0 
1610 NEXT u 
1615 REM 

1620 REM Sub Stampa fisse X 
1625 REM 

1630 IF y4<0 OR y4>175 THEN RETURN 
1635 PLOT 0,y5: DRfiW 255,0 
1640 FOR u-x5 TO 255 STEP r 
1645 PLOT u,y5: DRfiW 0,2*<y5<174> 

1650 PLOT u,y5: DRfiW 0,-2*<y5>l> 

1655 NEXT u 

1660 FOR u«x5 TO 0 STEP -r 
1665 PLOT u,y5: DRfiW 0,2*<y5<174> 

1670 PLOT u,y5: DRfiW 0,-2*<y5>l> 

1675 NEXT u: RETURN 
1680 REM 

1685 REM Sub Trova LEN p# 

1690 REM 

1695 IF LEN p*<33 THEN RETURN 
1700 LET ys“l' LET b*“P*< 33 TO > 

1705 LET xx-0: LET p*=p*< TO 32) 

1710 GO SUB 1245: LET P*=b* 

1715 LET yy=184: RETURN 
1720 REM 

1725 REM RiJTOSTflRT 
1730 REM 

1735 INK 1: PfiPER 1= BORDER 1 
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1740 OVER 0: INVERSE 0 
1745 CLEAR 32255 
1750 LORD "CHR* "CODE 32256 
1755 INK 7: CLS : RUN 
1760 REM 

1765 REM SALVATAGGIO 
1770 REM 

1775 SAVE "GRAF f<x>" LINE 1735 
1780 SAVE "CHR* "CODE 32256,300 
1785 STOP 
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PARTE III 


I GIOCHI 


I giochi al computer sono cosa frivola se paragonati ai ben più seri compiti 
cui viene destinato un elaboratore. 

Tuttavia è mia opinione che essi rappresentino un valido aiuto per coloro 
che desiderino imparare a programmare, e per un valido motivo. 

Quando ci si avvicina ad un elaboratore, specialmente se si è alle prime 
armi, si cerca di instaurare un rapporto più che simpatico con ciò che sino a 
poco tempo fa pareva destinato a pochi eletti, il computer appunto. 

Quando si vuole programmare bisogna avere chiaramente in testa ciò che 
si vuole il computer faccia, cosi nel programmare un gioco, in generale, l'u¬ 
tente sa già cosa desidera e può fisicamente vedere sul video ciò che via via 
sta realizzando. 

La cosa non è cosi immediata se si desidera programmare, ad esempio, 
la gestione di un archivio di dati anche se i problemi di programmazione po¬ 
trebbero essere gli stessi. 

In linea di principio è più semplice seguire lo spostamento di un omino sul 
video, perchè fisicamente visibile, anziché il flusso di dati che si trasferisco¬ 
no su un supporto magnetico. 

Seguono ora una serie di giochi che potranno piacervi o anche non pia¬ 
cervi ma senz'altro servono. In essi troverete differenti metodi per risolvere 
determinati problemi e stimoli per migliorare il gioco stesso secondo le vo¬ 
stre esigenze. 

Un avvertimento: 

- i caratteri ASCII posti tra apici " " che nel loro insieme non costituiscono 
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una frase con senso finito sono da considerarsi caratteri grafici e pertanto 
vanno introdotti nello Spectrum in tale modo. 

Un consiglio: 

non scoraggiatevi alle prime difficoltà. 


LUNAR LANDER 


Lunar lander è un nome molto noto come gioco e si può dire che ce ne sia 
almeno una versione per ogni tipo di home computer esistente. Questo rea¬ 
lizzato per lo Spectrum è molto bello: 

— non è spettacolare o particolarmente variopinto, tuttavia è ben realizzato 
e divertente poiché è il risultato di una felice integrazione tra l^M e Basic. 

Questo gioco è costituito da due parti: 

1) la parte in Basic che gestisce il gioco in base ai risultati che provengono 
alla routine in L/M; 

2) la parte in L/M è una sorta di routine di SPRITE capace cioè di spostare 
oggetti sullo schermo e di rilevarne la collisione con qualcosa di estra¬ 
neo. È qui utilizzata per spostare il nostro Lander per il video secondo 
coordinate che il programma Basic fornisce. 

Per rendere la cosa più complicata, esiste una fascia di “meteoriti” che la 
nostra navicella deve evitare per allunare sana e salva. Anche questi meteo¬ 
riti sono spostati pixel per pixel da una parte di questa routine in L/M. 

È inclusa la possibilità di generare un suono abbastanza disgustoso qualo¬ 
ra l'allunaggio avesse cattivo esito. Suono che molto spesso udirete nel cor- 


Ma veniamo ai comandi: 

Tasto Funzione 

1 spinta verso il basso 
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2 posizione di equilibrio 

3 spinta.verso l'alto 

8 spinta a sinistra 

9 posizione normale 

0 spinta a destra 

Come sempre avendo a che fare con codici in linguaggio macchina oc¬ 
corre prestare molta attenzione nel digitarli e comunque salvare su nastro il 
programma prima del RUN. 

Infine sconsiglio di cambiare i numeri di linea poiché, come ben si nota 
dal listato alla linea 1070, il L/M indirizza il Basic in punti ben precisi del pro¬ 
gramma. 



1000 CLEFIR 32299: GO SUB 1350 

1005 LET diff-1: LET *=32300: LEI b«*+l 

1010 LET c=*+2: LET d«*+8: LET puff«*+93 

1015 GO SUB 1180 

1020 LET **«INKEY® 

1025 IF a*«"0" THEN GO SUB 1075 

1030 1F a*“"1" THEN GO SUB 1090 

1035 IF **="2" THEN GO SUB 1085 

1040 IF *®«"3" THEN GO SUB 1090 

1045 IF **«"8" THEN GO SUB 1095 

1050 IF **="9" THEN GO SUB 1100 

1055 LET sx-*x+*x: LET sy*sy+ay 
I960 LET x-x+sx: LET y«y+sy 
1065 POKE * ( x: POKE t, 192-y 
1070 GO TO USR d 

1075 LET *x«q: POKE c,1+8: RETURN 
1060 LET *y=-q: RETURN 
1085 LET *y=0; RETURN 
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1090 LET ay=q: RETURN 

1095 LET «x—q: POKE C,l+16: RETURN 

1100 LET ax=0: POKE Cjl: RETURN 

1105 IF y<6 THEN LET y-8 

1110 IF y>191 THEN LET y-191 

1115 LET su—su : GO TO 1065 

1120 IF x<0 THEN LET x-0 

1125 IF X>24? THEN LET x-247 

1130 LET sx—sx = GO TO 1065 

1135 PRINT RT 0,0.; 

1140 IF <su#sy+sx*sx>>diff OR y>40 THEN 
POKE c,1+24; RRNDOMIZE USR puff: RflNDOM 
I2E USR d: RRNDOMIZE USR puff: PRINT "Di 
strutto": LET punti=200-1NT y: GO TO 116 
0 

1145 IF <x>106 OR x<103) THEN PRINT "Ma 
ncato": FOR l-l TO 4: FOR j=20 TO 12 STE 
P -2: BEEP .01,j: NEXT j: NEXT i: PLOT 1 
08,4: DRRW 0,24: PRINT RT 17,2;"E'qui eh 
e bisogna, atterrar*" ; RT 1,0: LET punti =4 
00-INT <. RBS (x-104.5)?: GO TO 1160 
1150 BEEP .2,20: BEEP .3,10: LET t0»INT 
<<FN t<23672>-t@V50>: PRINT "O.k. in "j 
t0;" Secondi": LET punti«INT <40@+2000/t 

er> 

1155 POKE c,1 : RRNDOMIZE USR d 
1160 PRINT "Punti- punti 
1165 PRINT "Premi un tasto" 

1170 PRUSE 1: GO SUB 1280: PAUSE 0 

1175 CLS : BORDER 1: GO TO 1005 

1180 CLS : LET q-■05 : RESTORE 1275 

1185 PLOT 0,4: FOR x-0 TO 247 STEP 8 

1190 RERD y: DRRW 8,y: NEXT x 

1195 DRRW 7,-4: POKE c+2,0:'PQKE c+3,0 

1200 LET 1-PEEK 23675: LET h-PEEK 23676 

1205 POKE c,1 : POKE c+l,h 

1210 POKE c+4,l: POKE c+5,h 

1215 LET a*="EF IB EFGH IG GH" 

1220 FOR i-6 TO 15 STEP 3 
1225 PRINT RT i,8;a*<i+l TO >;a*< TO i): 
NEXT i 

1230 PLOT 101,2: DRRW 2,2 
1235 PLOT 103,5: DRRW 10,0 
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1240 PLOT 104,4: DRHW 8,3 
1245 PLOT 105,3: DRAW 6,0 
1250 PLOT 103,2: DRRW 10,0 
1255 PLOT 115,2: DRRW -2,2 
1260 LET x»32+200*RND; LET yl92~10*RND: 
LET *x*-.5#RND: LET sy-0: LET ax-sy: LE 
T ay«sy 

1265 DEF FN t<a>«PEEK a+256*PEEK <a+l>+6 
5576#PEEK <a+2> 

1270 LET t0=FN t<23672): RETURN 
1275 DRTR 3,20,-1,-2,-3,-14,-6,4,3,-1,1, 
-3,-4,0,2,-2,2,3,2, 4,-2,1,-3,-4,-2,2,3,2 
,1,-1,-4,-3 

1280 PRINT ""1 SPXNTR IN BRS50" 

1285 PRINT "2 EQUILIBRIO" 

1290 PRINT "3 SPINTR IN ALTO" 

1295 PRINT "8 SPINTA R SINISTRA" 

1300 PRINT "9 POSIZIONE NORMALE" 

1305 PRINT "0 SPINTA A DESTRA" 

1310 RETURN 

1315 POKE 32442,0: F'OKE 32443,237 
1320 POKE 32444,103: POKE 32419,0 
1325 POKE 32423,237: POKE 32424,111 
1330 RETURN 
1335 REM 

1340 REM HEX-CODE Caricatore 
1345 REM 

1350 RESTORE 1425: GO SUB 1280 
1355 PRINT AT 0,10;"ATTENDERE" 

1360 FOR i-1 TO 2: READ a,b 
1365 FOR j-a TO b: READ a* 

1370 LET h=CQDE a*<1>-48 
1375 LET h®h-7#< a*<1)>"@") 

1380 LET l-CQDE a*<2>-48 
1385 LET l*l-7#< a*<2 >>"fi"> 

1390 POKE j,16*h+l: BEEP .01,69 
1395 NEXT j: NEXT i: RETURN 
1400 REM 

1485 REM DATI PROGRAMMA L.M. 

1410 REM 

1415 REM LANDER SPRITE ROUTINE 
1420 REM 

1425 DATA 32306,32539 


131 




1430 DATA "00"," 00" 
1435 DATA "5B","32" 
1440 DATA "2A","2C" 
1445 DATA "7C","D6" 
1450 DATA "04","7D" 
1455 DATA "30","7E" 
1460 DATA "ED","53" 
1465 DATA "CC","7E" 
1470 DATA "28","03" 
1475 DATA "D5","E5" 
1480 DATA "B0","7E" 
1485 DATA "B0","7E" 
1490 DATA "9C","7E" 
1495 DATA "9C","7E" 
1500 DATA "7F","CI" 
1505 DATA "C4","7E". 
1510 DATA "7E","D3". 
1515 DATA "F5","C9" 
1520 DATA "00","0E". 
1525 DATA "06","20". 
1530 DATA "FB","24". 
1535 DATA "7D","F6". 
1540 DATA "06","20", 
1545 DATA "1E","23", 
1550 DATA "20","6F", 
1555 DATA "09","00", 
1560 DATA "E6","7E", 
1565 DATA "0A","7F", 
1570 DATA "23","A6", 
1575 DATA "0D","20", 
1580 DATA "D5","55", 
1585 DATA "CB","3D", 
1590 DATA "0F","E6". 
1595 DATA "07","B0". 
1600 DATA "87","87". 
1605 DATA "7A","E6". 
1610 DATA "24","3E". 
1615 DATA "7D","06". 
1620 DATA "70","06". 
1625 DATA "B0","1A". 
1630 DATA "19","10". 
1635 DATA "E6","7E". 
1640 DATA "0A","7F". 


"2A","30","7E","ED" 
"7E","CD","3D","7F" 
"7E","01","51","04" 
"B8","D0","01","60" 
"D6","F8","D0","22" 
"ED","5B","2E","7E" 
"32","7E","D5", "CD" 
"DI","01","FC","03" 
"01","6F","04","05" 
"21","00","40","CD" 
"21","80","48","CD" 
..gl», "20", "48", "CD" 
"21","E0","48","CD" 
"El","DI","CD","26" 
"09", "0E", "00", "21J*- 
"06","00","10","FE" 
"FE","23","0D","20" 
"00","00","11","20" 
"08","7E","19","17" 
"2B","CB","16","10" 
"0D","20","F2", "09" 
"1F","5F","0E",“08" 
"54","1A","1F","CB" 
"10","FB","?D","D6" 
"24","0D","20","EE" 
"00","00","E5","CD" 
"0E","08","05","CD" 
"A6","20","04","79" 
"2B","01","20","03" 
"EF","El","09","00" 
"CB","3D","CB","3D" 
"70","4F","0F","0F" 
"18","47","7C","E6" 
"06","40","67","79" 
"E6","E0","85","6F" 
"07","47","DI","09" 
"07","A4","20", "0A" 
"20","6F","38","04" 
"F8","67","AF","4F" 
"13","08","1F","CB" 
"FB","09","E5","CD" 
"0E","08","05","CD" 
"B6","77","23","7E" 
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1645 

1650 

1655 

1660 

1665 

1670 

1675 

1680 

1685 

1690 

1695 

1700 

1705 

1710 

1715 

1720 

1725 

1730 

1735 

1740 

1745 

1750 


DRTR "B1","77","2B","Cl","0D","20" 
DRTR "FI","El","C9","E5","CD","E6" 
DRTR "7E","0E","08","C5","CD","0fì" 
DRTR "7F","EE","FF","R6","77","23" 
DRTR "79","EE","FF","R6","77","2B" 
DRTR "Cl","0D","20","ED","El","C9" 
REM 

REM LRNDER U.D.G. 

REM 

DRTR USR "a",USR "i"+? 

DRTR "00","3C","7E","7E","3C","3C" 
DRTR "42","C3","1C","3E","7E","7E" 
DRTR "3E","44","C2","03","38", "7C" 
DRTR "7E","7E","7C","22","43","C0" 
DRTR "24","81","5R","3C","3C","5R" 
DRTR "81","24","01","0F","1F", "3F" 
DRTR "3F","3F","1F","07","F0","F8" 
DRTR "FC","FC","FC","F8","F8","30" 
DRTR "18",“7C","7C","3C","09","61" 
DRTR "F0","60","00","1C","FF","FF" 
DRTR "FF","FE","FC","0C","00" , "00" 
DRTR "C0","F8","70","00","03","03" 


BASE ATTACK 


È un gioco molto semplice ma divertente. Lo scopo è quello di evitare che 
a solita astronave aliena atterri distruggendo le basi misilistiche. Solo che è 
abbastanza difficile riuscirci perchè queste basi hanno pochi missili a loro 
disposizione e una volta esauriti non c’è più nulla da fare. 

È questione di abilità: 

- ci sono tre basi, ciascuna con i suoi cinque missili che si possono far par¬ 
tire premendo i seguenti tasti: 

B per la base posta a sinistra 
N per la base posta al centro 
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M per la base posta a destra 


il mirino è invece spostabile sullo schermo agendo sui tasti W, A, S, Z secon¬ 
do direzioni ovviamente intuibili sulla tastiera. 

Anche qui come in molti listati di questo libro si fa largo uso di caratteri 
grafici. Attenzione quindi alle lettere poste tra apici che. ove non abbiano un 
senso compiuto, son da associarsi al carattere grafico omologo. 



1000 REM 

1005 REM BASE ATTACK 
1010 REM 

1015 BORDER 6: PAPER 5: INK 0: CLS 
1020 PRINT AT 6,12; FLASH 1;"MISSILE" 

1025 PRINT AT 7,12; INVERSE 1; FLASH l;"CO 
MMAND" 

1030 PRINT AT 11,0; INVERSE 1;"<W,A,S, Z> p 
er muover® il Mirino " 

1035 PRINT AT 13,0; INVERSE Ì;“<B,N,M> per 
sparare con le Basi 11 
1040 GO SUB 1275 
1045 LET a*-"": FOR i=0 TO 31 
1050 LET a*=a*+ ,, l" : NEXT i 
1055 PAUSE 0: POKE 23658,0 
1060 BORDER 0: PAPER INK 7: FLASH 0: BR 
IGHT 0: CLS 

1065 PRINT AT 18,0; INK 5;'' BC "; INK 



INK 7;"EEEE"; 


7;"EEEE"; INK 5;" BC 
INK 5;" BC " 

1070 PRINT flT 19,0; INK 6;" RI"; INK 5;"JK 
"j INK 6;"Il"; INK 3;" DDDD" ; INK 6; " RI"; 

INK 5;"JK"j INK 6;"li"; INK 3;" DDDD"; IN 
K 6;" Ri"; INK 5;"JK"; INK 6;"il " 

1075 PRINT RT 20,0; INK 6;'RIMI"; INK 
3; "DDDD" ; INK 6; "R—I" ; INK 3; "DDDD" ; 

1060 PRINT RT 21,0; INK 2;a* 

1085 LET x-10: LET g-16 
1090 LET *k«5: LET sco-0 
1095 LET mt-il: LET n*«5 
1100 LET nb—5■ LET nc-5 

1105 LET *—Q ■ LET b-INT <RND*31>: LET nn=n 
n-1 : IF nn-0 THEN BEEP 0.3,10: BEEP 0.3,0 
: LET nn-10: LET n*-5: LET nb-5 : LET nc-5; 
LET sk-*k-< *k >0 > 

1110 PRINT RT a,b; INK 4;"GH" 

1115 PRINT RT 0,0; INK 7;"PUNTI""J«co 
1120 IF *-18 THEN GO TQ 1250 
1125 FOR q-1 TQ sk 
1130 PRINT INK 7;RT x,y;"F" 

1135 PRINT RT 20,3;na;RT 20,15;nb;RT 20,27 
ine: LET rr-0 

1140 IF INKEY*-"b" OR INKEY*-"n" OR INKEY* 
-"m" THEN GQ TQ 1220 

1145 IF INKEY*-"*" THEN PRINT RT x,y;" 

LET y-y-<y>0> 

1150 IF INKEY*-"®" THEN PRINT RT x,y;" 

LET y-y+<y<31> 

1155 IF INKEY*="w" THEN PRINT RT x,y;" ": 
LET x-x-<x>l> 

1160 IF INKEY*-"z" THEN PRINT RT X,y;" 

LET x-x+< x<17 ) 

1165 NEXT q 

1170 LET c-INT <RND*3>+1 
1175 LET *-*+(c-l> 

1180 LET *-*+< c-2 ) 

1185 LET b-b+< c-2 > 

1190 LET *-*+< c-3 > 

1195 LET b-b-Cc-S) 

1200 IF b<1 THEN LET b=l 
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1205 IF b>3@ THEN LET b-30 
1210 PRINT RT a-1,b-1 ;" 

1215 GO T0 1110 

1220 IF INKEY*-"b" AND na>0 THEN INK 6: L 
ET rr«l: PLOT 32,33: DRRW <9*y>-28,<8*<21- 
X > >-29 : BEEP 0.01,10: BEEP 0.01,0: BEEP 0. 
1,-10: PLOT OVER 1 ; 32,33 : DRRW OVER 1X8 
*y>-28X8*<21-x>>~29: INK 7: PRINT RT x,y; 
11 F" : LET n*»»'n«-l 

1225 IF INKEY*«"n" AND nb>0 THEN INK 6: L 
ET rr-1: PLOT 128,33: DRRW < 8*y >-124X 8#< 2 
1—x > >-29 : BEEP 0.01,10: BEEP 0.01,0: BEEP 
0.1,-10: PLOT OVER 1;128,33: DRRW OVER 1 
X8*y>-124X8*<21-x>>-29: INK 7: PRINT RT 
x,y.;"F": LET nb^nb-1 

1230 IF INKEY*="m" AND r>c>0 THEN INK 6: L 

ET rr-1 : PLOT 224,33 : DRRW < S*y >-220,< 8*< 2 

1-x > >-29 : BEEP 0.01,10: BEEP 0.01,0: BEEP 

0.1,-10: PLOT OVER 1;224,33: DRRW OVER 1 

X0#y>-220,<8*<21-X>>-29: INK 7: PRINT RT 

x,y;"F": LET Tic^nc-l 

1235 IF rrOl THEN GO TO 1145 

1240 IF RTTR <a,b>-7 OR RTTR <a,b+l>*7 THE 

N PRINT RT a,b;" ": FOR d=@ TO 5: PRINT 

RT a-d#< < a-d X17 >,b+d*< < b+d ><31>; ; RT a- 

d*2#< < a-d*2 X17 >,b-d#2#< < b-d#2 X 31> ;" + ": B 

EEP .001,d#5: PRINT RT a-d*<<a-dX17>,b+d# 

< < b+d X 31>;" " ; RT »-2*d«<»-d*2X17>,b-d*2 

*<<b-2*d><31>;" ": NEXT d= LET sco=sco+10@ 

; LET rr-0: GO TO 1105 

1245 GO TO 1145 

1250 PRINT RT a,b; INK 2;"GH" 

1255 BEEP 1,0: BEEP 0.6,0: BEEP 0.3,0: BEE 
P 1,0: BEEP 1,-5 

1260 PRINT RT 12,1; INK 2; PAPER 7; FLASH 

1;"INVASORI ATTERRATI -" 

1265 PRINT " BRTTI UN TASTO PER GIOCRRE 
": PAUSE 0: PRUSE 0 
1270 CLS : GO TO 1060 
1275 REM 

1280 REM HEX-CQDE Caricatore 
1285 REM 

1290 FOR a=USR "a" TO USR "k"+7 




1295 

1300 

1305 

1310 

1315 

1320 

1325 

1330 

1335 

1340 

1345 

1350 

1355 

1360 

1365 

1370 

1375 

1380 

1395 

1390 

1395 

1400 

1405 

1410 

1415 

1420 

1425 

1430 

1435 

1440 

1445 

1450 

1455 

1460 


READ a* 

LET h-CODE *•<1>-48 
LEI h“h-7#< a*< 1 »"@" > 
LET l=GODE a*<2>-48 
LET l = l-7#< 2 »"®" > 

POKE *,16*h+1: NEKT a 
RETURN 
REM 

REM CHR* GRAFICI U.D.G. 
REM 

REM BASE ATTACK 

REM 

DATA "01", " 03 ", "07 " j " 0F " 
DATA "1F","3F",“7F", "FF" 
DATA "01","01","0F","1D" 
DATA "79","71","?F","7F" 
DATA "80","80","F0","B8" 
DATA "9E","8E","FE","FE" 
DATA "7E","66","66","42" 
DATA "42","66","66","7E" 
DATA "00","00","18","16" 
DATA "3C","3C","7E","7E" 
DATA "18","18","18", "E7" 
DATA "E7","18","18","18" 
DATA "03","0F","19","39" 
DATA "7F","61","60","3C" 
DATA "C0","F0","98","9C" 
DATA "FE","86","06","3C" 
DATA "80","C0","E0","F0" 
DATA "F8","FC","FE","FF" 
DATA "7F","60","7F","60" 
DATA "7F","60","7F","00" 
DATA "FE","06","FE", "06" 
DATA "FE","06","FE","00" 


PISTA 


Ciò che segue è un giochino molto semplice, ma forse anche per questo 
ivertente a giocarsi. È questione di abilità, bisogna guidare un bob seguen- 
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do un tracciato senza urtare gli ostacoli che questo presenta. Si usa un ca¬ 
rattere grafico per disegnare e muovere il bob lungo la pista mentre il trac¬ 
ciato è realizzato con il carattere shift 5. Per muovere il bob utilizzare i tasti 
W ed E. 


1000 REM OLIMPIO BOB 
1003 REM 

1010 00 SUB 1300 
1015 REM 

1020 REM DEFINIZIONE CRRRTTERI 
1023 REM 
1030 REM BOB 
1035 REM 

1040 POKE USR "*"+0,BIN 00100000 
1045 POKE USR "a"+l,BIN 00101000 
1050 POKE USR "a"+2,BIN 11101000 
1055 POKE USR "* ,, +3 J BIN 11111100 
1060 POKE USR "*"+4,BIN 01111110 
1065 POKE USR "*"+5,BIN 00111110 
1070 POKE USR "a"+6,BIN 00011110 
1075 POKE USR "a"+7,BIN 00001110 
1080 REM 
1085 REM PISTA 
1090 REM 

1095 REM utilizzato carattere 
1100 REM orafico sul tasto 5 
1105 REM 
1110 LET hw«=l 
1115 REM 

1120 REM TRACCIAMENTO PISTA 
1125 REM 

1130 PAPER 7• INK 7: CLS 
1135 LET x-<RND*10>+5 
1140 LET hx=x+2 
1145 FOR k-1 TO 20 

1150 PRINT AT k,xi INK 0; " I";AT k,x+z;" I" 
1155 LET x*x+< SGN <RND-.5>> 

1160 IF x>31 THEN LET x-31 
1165 IF x<0 THEN LET x-0 
1170 NEXT k 

1175 PRINT AT hy.,hx; INK 2j "A" 

1180 PAUSE 50 





1105 FOR w-1 TO 29 

1190 LET x-x+<SGN <RND-.5>> 

1195 IF x>31 THEN LET x=31 
1200 IF x<0 THEN LET x=0 
1205 POKE 23692,-1 

1210 PRINT RT 21,x; INK 0;"l";AT 21,x+z;"l 

1215 GO SUB 1250 
1220 NEXT w 
1225 FOR w=l TO 20 
1230 PRINT RT 21,1" 

1235 GO SUB 1250 
1240 NEXT w 
1245 GO SUB 1345 
1250 REM 

1255 REM MOVIMENTO BOB 
1260 REM 

1265 LET b*»INKEY* 

1270 PRINT RT hy~l,hx;" " 

1275 IF b*«"q" THEN LET hx-hx-1 
1280 IF b*»"w" THEN LET hx«*hx+l 
1205 IF RTTR <hy,hx>»56 THEN GO TO 1355 
1290 PRINT RT hy,hx; INK 2;"fl" 

1295 RETURN 
1300 REM 

1305 REM ISTRUZIONI 
1310 REM 

1315 PRINT RT 1,1; INK 1;"USR I TRSTI Q 
W PER STERZARE" 

1320 PRINT RT 10,10; INK 2; FLRSH l;"OLIMP 
IO BOB" 

1325 INPUT "LIVELLO DIFFICOLTA' 1 <l-5> 
z 

1330 IF z<l OR z>5 THEN GO TO 1325 
1335 LET z**9-z 
1340 RETURN 

1345 PRINT RT 20,1; INK 0;"CE L'HRI FATTA 
1350 GO TO 1365 

1355 PRINT RT 20,1; INK 0;"TI SEI SCHIANTA 
TO !" 

1360 BEEP 1,-10 

1365 INPUT "GIOCHI ANCORA 
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1370 IF 9*<1>-"s" THEN RUN 
1375 INK 0: PRPER 7: BORDER ?■ CLS 


QUASIMODO 


Si tratta di un gioco realizzato in Basic ma che presenta qualità non indif¬ 
ferenti. Infatti si sviluppa in 5 fasi di gioco e ognuna ha un suo schermo parti¬ 
colare. 

Lo scopo è di raggiungere la fanciulla chiusa nel castello e per far ciò oc¬ 
corre superare innumerevoli insidie. Bisogna fare molto in fretta perchè 
Quasimodo, il mostro del castello, è geloso e scalerà il muro per raggiunger¬ 
vi e uccidervi. 

I comandi sono molto semplici: 

1 per muovere a sinistra 

2 per muovere a destra 

0 per saltare 

II programma per chi possiede uno Spectrum 16k deve essere caricato in 
due volte: 




- prima i dati che definiscono i caratteri U.D.G., cioè dalla linea 2135 (che 
viene vista come subroutine), poi II programma vero e proprio. 

Ciascuno in base alla sua esperienza saprà opportunamente apportare le 
modifiche necessarie per rendere i due listati un unico blocco. 


.1000 OVER 0: GO SUB 2135: LEI hi=@ 

1005 GO SUB 2060 
1010 GO SUB 1930 
1015 GO SUB 1620 

1020 PRINT AT x, yj " " ; AT x+l,y.i" 11 
1025 IF INKEY*-"" THEN GO TO 1065 
1030 IF INKEYHK>"2" THEN GO TO 1045 
1035 LET : LET n*-"B" 

1040 IF y<31 AND HTTP <x+1,y+1><>86 THEN L 
ET y-y+1 

1045 IF INKEY*< >"1" THEN GO TO 1060 
1050 LET : LET n*="D" 

1055 IF y>0 AND ATTR <x+1,y-1><>86 THEN LE 
T y-y-1 

1060 IF INKEY*="0" THEN GO TO 1100 

1065 IF y-31 THEN GO TO 1525 

1070 PRINT AT x,y; INK 5jm*;AT x+l,y;n* 

1075 GO SUB 1215 
1080 GO SUB 1240+1**30 

1085 IF ATTR <x+2,y><>86 THEN GO TO 1170 
1090 IF ATTR <x,y><>69 OR ATTR <x+1,y>069 
THEN GO TO 1568 
1095 GO TO 1020 

1100 IF rn*="C:" THEN LET n*»"F" : LET jd—1 = 
GO TO 1115 

1105 IF m*-"A" THEN LET n*="E": LET Jd-1 : 
GO TO 1115 
1110 LET jd=0 

1115 FOR a—1 TO 1 STEP .5: PRINT AT x,y;" 

1120 PRINT AT x+1 jU;" LET x»x+a 

1125 IF y<31 AND y>0 THEN LET y»y+jd 
1130 PRINT AT x,y; INK 5jm*;AT x+l,y.:n* 

1135 GO SUB 1240+1**30 

1140 IF rh-0 AND y-INT <rpxe> OR y+l=INT <r 
px8> THEN GO TO 1175 



1145 IF y=31 THEN GO TD 1525 

1150 IF l*-2 OR le*4 THEN GQ TO 1160 

1155 IF RTTR <x,y><>69 OR RTTR < x+1, y >069 

THEN GO TO 1560 

1160 BEEP .01,a: NEXT a 

1165 IF RTTR <x+2,y>-86 THEN GO TO 1070 

1170 GO TO 1560 

1175 LET rh-1: PRINT RT x,yj" ";RT x+l,y;" 

1180 LET y-INT <rpx8): LET x=S 
1195 LET rn*»"R": LET n*=>"B" 

1190 PRINT RT x,y;" ";RT x+l,y;" ": LET y=r 

PX0-1 

1195 PRINT RT x,y; INK 5;"A";RT x+l,y; H M" 
1200 BEEP •005,y: GO SUB 1215; GO SUB 1300 
1205 IF INKEY*-"0" THEN GO TO 1100 
1210 GO TO 1190 

1215 IF mx<“9 THEN GO TO 1245 
1220 LET mx-mx-<rox5) 

1225 PRINT RT mx,l; PRPER 6; INK 1;"N";RT m 
x+1,li"P" 

1230 PRINT RT rox+2,1; INK 6; PRPER 2;"G" 
1235 IF mx<-9 THEN PRINT INK 6; PAPER 2;R 
T 10,lj"G";RT 11,1;"G" 

1240 RETURN 

1245 PRINT RT 8,1; INK 5;"N"jAT 9,1;"0": LE 
T mx"mx-l 

1250 IF mx>-0 THEN RETURN 

1255 FOR a-2 TO y-1; PRINT RT x+1,a; INK 6; 

"H" 

1260 BEEP .01,a; BEEP .005,0: BEEP .001,-5 
1265 PRINT RT x+1,a;" ": NEXT a; GO TO 1560 
1270 PRINT RT 9,ax;" " 

1275 PRINT RT 7,29-axj" " 

1280 LET ax-ax-1 

1285 IF ax<1 THEN LET ax=29 

1290 PRINT RT 9,ax; INK 6;"Q";RT 7,29-axj"G 

1295 RETURN 

1300 PLOT 128,167; DRRW INVERSE 1rp-128,- 
60 

1305 LET rp*rp+rd 

1310 IF rp>156 THEN LET rd—8 
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1315 IF rp< 100 THEN LET rd«=8 
1320 PLOT 128,167: DRflW rp-128,-60 
1325 RETURN 

1330 FOR b=6 TO 26 STEP 5 

1335 PR1NT RT ax,b; INK 4;"R";RT ax-l,b; IN 
K 7; " " 

1340 NEXT b 

1345 LET ax-ax+ad: IF ax«6 THEN LET ad=l 
1350 IF ax»10 THEN LET ad—1 
1355 RETURN 

1360 GQ SUB 1300: PRINT RT 10,ax; INK 6; PR 
PER 2;"G" 

1365 PRINT RT 10,31-ax; INK 6; PRPER 2; "G" 
1370 PRINT RT 10,ax+l;" ";RT 10,30-ax;" " 
1375 LET ax*ax+adx2 

1380 IF ax-4 OR ax-14 THEN LET ad—ad 
1385 RETURN 

1330 PRINT RT l,ax; INK 5; " N ";RT 2,ax;" 0 

1335 LET ax=ax+< ax<27 AND ax<y>-<ax>2 AND a 
x>u> 

1400 PRINT RT by,bx;" ": LET by=by+l 
1405 IF by=3 THEN LET by-4; LET bx»ax 
1410 PRINT RT by,bx; INK 6;"Q" 

1415 PRINT RT 3,cy; INK 6;"I ";RT 7,29-cy;" 
H" 

1420 LET cu-cu-1 

1425 IF cy=0 THEN PRINT RT 7,23;" "; RT 3,1 

.. LET cy-23 

1430 RETURN 

1435 PRINT RT l,ax+l; INK 5;" " 

1440 PRINT RT 2,ax+l; INK 5;" " 

1445 FOR a*>23 TO 2 STEP -1 

1450 PRINT INK 7;RT l,a;"C ";RT 2,a;"D " 

1455 BEEP .01,a: PAUSE 2 

1460 PRINT INK 7;RT 2,a;"F " 

1465 BEEP .01,-a: PAUSE 5: NEXT a 
1470 LET sc=sc+Cro*1000> 

1475 PRINT RT 7,2;"Q.k.! Hai salvato Esmera 
Ida ! I " 

1490 PRINT FLASH 1; INK 0; PAPER 4;AT 15,7 
;"Riprovaci ancora I" 

1495 FOR a-1 TO 255: QUT 254,-a 
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1490 NEXT &: LET ro-ro+1 

1495 IF be=4 THEN LET sc-sc+ro*250: PRINT 

PI 17,7;"Super BONUS : ";250*ro 

1500 FOR *=1 TO 60 STEP 2 

1505 BEEP .001,a: NEXT a 

1510 IF ro>4 THEN LET ro-4 

1515 LET l*-l: LET be-0 

1520 PRUSE 0: PAUSE 0: GO TO 1015 

1525 PRINT RT x,y;" ";RT x+l,gj" " 

1530 FOR *»7 TO 3 STEP -1 

1535 PRINT RT a, 31; INK 5;"A";RT *+1,31; IN 

K 5;"M" 

1540 BEEP .02,30: BEEP .02,25 

1545 PRINT RT *,31;" l";RT *+1,31;" I": NEXT 

* 

1550 IF 1©=5 THEN GO TO 1435 

1555 LET sc-sc+100: LET W-le+1 : LET be-be+ 

1 : GO TO 1015 

1560 GO SUB 2035: FOR *=255 TO 0 STEP -5 
1565 PRINT RT x,y; INK RND*7 ; rn* ; RT x+l,y;n* 
1570 OUT *,-*: NEXT *■■ LET be=0 
1575 LET li-li—1: IF li=0 THEN GO TO 1585 
1580 GO TO 1015 

1585 PRINT RT 11,12; PAPER 2;"FINE GIOCO" 
1590 FOR *-50 TO -50 STEP -5 
1595 BEEP .01,*: BEEP .01,0 
1600 BEEP .005,-5: NEXT * 

1605 PRINT RT 13,10; FLRSH 1;"PREMI UN THST 
0" 

1610 IF sc>hi THEN LET hi-se 
1615 PRUSE 0: PRUSE 0: GO TO 1005 
1620 BORDER 0: PRPER 0: INK 7: BRIGHT 1: CLS 
1625 PRINT RT 0,0; INK 6; PAPER 2;a* 

1630 PRINT RT 0,1;"0000000";RT 0,24;"000000 
0 " 

1635 PRINT RT 0,8-LEN STR» sc;$c;RT 0,31-LE 
N STR* hi;hi 

1640 PRINT #0;RT 0,0; INK 6; PRPER 2;a*;AT 

1 , 0 ;** 

1645 FOR *-1 TO li 

1650 PRINT #0;RT 0,a+7; INK 4;"A" 

1655 NEXT * 

1660 PRINT #0;RT 0,1;"VITE:" 
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1665 PRINT #0;AT 0,14;"ROUND: H ;ro 
1670 PRINT #0;AT 0,24;"SCHEMA:";1* 

1675 FOR *=10 TO be 

1680 PRINT AT 0,*#2+9; INK 5;"J";AT 1,51*2+9 
; "K" 

1685 NEXT * 

1690 FOR *=10 TO 21 

1695 PRINT AT *,0; INK 6; PAPER 2;** 

1700 NEXT * 

1705 PRINT AT 1,31;"J";AT 2,31;"K" 

1710 FOR *=3 TO 7 

1715 PRINT AT *,31; INK 5;"I" 

1720 NEXT * 

1725 LET rp=300: LET rd-0 

1730 GO SUB 1720+1**35 

1735 IF le=l THEN LET *=31: GO TO 1930 

1740 LET rh=0: LET mx=19 

1745 LET x=8: LET y=0: LET fri*="A" : LET n*=" 
E" 

1750 RETURN 

1755 FOR *=10 TO 12: FOR b=5 TO 25 STEP 5 
1760 PRINT AT *,b;" "; INK 5; "1" 

1765 NEXT b: NEXT * 

1770 FOR b=7 TO 27 STEP 5 
1775 PRINT AT 10,b; INK 5;"L" 

1700 NEXT b: LET *x=29 

1785 LET *u=S: RETURN 

1790 FOR *=10 TO 19 

1795 PRINT AT *,10;b*( TO 11>; INK 5; 

1800 NEXT * 

1805 PRINT AT 20,10; INK 5; PAPER 2; FLASH 
l;f*< TO 12) 

1810 LET rp=12S: LET rd=8 
1815 PRINT AT 10,21; INK 5;"L" 

1820 RETURN 
1825 GO SUB 1755 
1830 FOR *=6 TO 26 STEP 5 
1835 PRINT AT 11,*;"N" 

1840 PRINT AT 12,*;"0" 

1045 NEXT a 
1850 LET ax=10 
1855 LET *d—1 : RETURN 
1860 FOR *=10 TO 19 
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1065 PRINT RT a,5;b*< IO 21 >; 

1870 PRINT INK 5;: NEXT a 

1875 PRINT FlT 20,5; INK 5; PAPER 2; FLASH 1 

;f* 

1830 PRINT INK 5;AT 10,26;"L" 

1885 LET ax«=5: LET ad«l : LET rd=>8 
1890 LET rp-128: RETURN 
1895 GO SUB 1755 

1900 PRINT AT 3,2; INK 6; PAPER 2;a*< TO 28 

> 

1905 PRINT AT 2,1;"S";AT 3,1;"T" 

1910 PRINT AT 4,0; INK 6; PAPER 2;"GGG";AT 
4,29;"GG" 

1915 LET CU**29 : LET ax»16 
1920 LET by=4: LET bx=ax 
1925 RETURN 
1930 FOR b“-l TO 1 

1935 PRINT AT 19+b,a; INK 5;"C";AT 20+b,a;" 
D" 

1940 PAUSE 2 

1945 PRINT AT 20+b,a; INK 5;"F" 

1950 BEEP .05,b 

1955 PRINT AT 19+b,a; INK 6; PAPER 2;"G";AT 
20+b,a;"G" 

I960 LET a-a-1: IF a THEN GO TO 1985 

1965 FOR b-21 TO 10 STEP -1 

1970 PRINT AT b,a; INK 6; PAPER 2;"G"; 

1975 PRINT AT b-l,a; INK 5;"B";AT b-2,a;"A" 

1980 BEEP ■@5,b• NEXT b: GO TO 1740 

1985 NEXT b: GO TO 1930 

1990 LET sc-0: LET le*l: LET li-4 

1995 LET .. LET b#> , " , : LET f*-'*" 

2000 FOR i-1 TO 32 
2005 LET a*=a$+"G" 

2010 LET b* n b*+" ": NEXT i 
2015 FOR i-1 TO 22 
2020 LET f*»f*+"U": NEXT i 
2025 LET be-0; LET ro-1 
2030 RETURN 

2035 IF ATTR <x+2,yX>71 THEN RETURN 
2040 PRINT AT x,y;" ";AT x+l,y;" " 

2045 BEEP .02,-y: LET x-x+1: LET y=y+l 
2050 PRINT AT x,y;m*;AT x+l,y;n* 
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2055 GO TO 2035 

2060 BORDER 2: PAPER 6: IHK 0 

2065 CL8 : PRINT RT 19,13; "CUo !" 

2070 PRINT RT 5,10; INVERSE 1 ;"*QURSIMODO#" 

2075 PRINT RT 9,0; "I Coma.ridi sono 

2080 PRINT RT 11,4; "1 per muover* a sinistr 

2085 PRINT RT 12,4; "2 per muovere a destre." 
2090 PRINT RT 13,4;"0 per saltare" 

2095 PRINT RT 21,1; FLRSH 1;"Premi un tasto 
per iniziare ! !" 

2100 PRINT RT 16,14;"SC" 

2105 PRINT RT 17,14;"TE" 

2110 PAUSE 10 

2115 PRINT RT 17,15;"F" 

2120 PAUSE 10 

2125 IF INKEY*-"" THEN GO TO 2100 
2130 RETURN 
2135 REM 

2140 REM HEX-CODE Caricatore 
2145 REM 

2150 PRINT RT 12,12;"RTTENDI" 

2155 FOR a-USR "a" TO USR "u"+7 
2160 READ a* 

2165 LET h-CODE a*<1 >-48 
2170 LET h“h-7*<a*<1»"@"> 

2175 LET l"CODE a*<2>-48 
2180 LET l*°l-7#< a*< 2 >>"0" > 

2105 POKE a,16#h+l: NEXT a 
2190 RETURN 
2195 REM 

2200 REM ORTI DI DEFINIZIONE 
2205 REM 

2210 REM CARATTERI GRRFICI 
2215 REM 

2220 DRTfl "38","7C","7E","F4","EC","C2" 

2225 DATA "44","78","FA","FF","7E","38" 

2230 DATA "38","30","30","30","IO","3E" 

2235 DATA "7E","2F","37","43","22","1E" 

2240 DATA "5F","FF","7E","1C","0C","0C" 

2245 DATA "0C","1C","70","FC","BA","BF" 

2250 DATA "38","70","44","C6","3E","3F" 

2255 DATA "3D","FD","1C","7E","42","C3" 
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2260 DATA "FÉ" 
2265 DATA "EF" 
2270 DATA "FF" 
2275 DATA "21" 
2280 DATA "00" 
2205 DATA "5A" 
2290 DATA "00" 
2295 DATA "07" 
2300 DATA "FA" 
2305 DATA "0F" 
2310 DATA "63" 
2315 DATA "67" 
2320 DATA "SE" 
2325 DATA "37" 
2330 DATA "38" 
2335 DATA "3C" 
2340 DATA "18" 
2345 DATA "E8" 
2350 DATA "7E" 
2355 DATA "SA" 


"FE","FE","00","EF","EF" 
"00","00","00","04","C2" 
"C2","04","00","00","00" 
"42","FF","42","21","00" 
"00","18","24","24","42" 
"66","81","91","66","18" 
"00","00","00","01","03" 
" 0F " , " 1F ", " 3F ", " 7F " , " FF " 
"FF","7E","38","38","1D" 
"07","08","7F","3E","7F" 
"36","7F","08","3E","7B" 
"7F","36","36","76","07" 
"6F","73","7F","36","36" 
"70","92","54","38","FE" 
"54","92","00","18","18" 
"5A","18","18","3C","18" 
"3C","74","62","62","E4" 
"EE","5F","3E","3C","7E" 
"7E","FF","24","08","89" 
"55","A5","A9","52","FF" 


WALL RUN 

Ogni secondo che passa, il muro dal basso cresce verso l'alto e gli omini 
che sono sulla navetta trovano sempre più difficoltà a raggiungere la TERRA. 
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È questione di tempo e di abilità. Solo con le bombe si può distruggere il mu¬ 
ro che avanza e nel momento giusto si possono sganciare gli omini. 

Fortunatamente sia le bombe che gli omini si possono guidare nella loro 
discesa premendo i relativi tasti: 

<Z> <X> sgancia e guida sinistra, destra la bomba 
<N > <M > sgancia e guida sinistra, destra gli omini. 


1000 REM 

16B5 REM WfiLL RUN 

1010 REM 

1015 PAPER 7: BORDER 7 : INK 1: CLS 

1020 POKE 23658,0: GO SUB 1305 

1025 LET hs=0 

1030 GO SUB 1205 

1035 PRINT AT 0,13;"HI :";hs 

1040 LET x-x+f 

1045 IF x—0 OR x-29 THEN BEEP .04,10: LET 
f—f 

1050 PRINT AT 0,0; INK 1;"PUNTIs;AT 0,24 
; INK 1;"VITE:li;" " 

1055 PRINT AT l,x; INK 2;" B " 

1060 LET i*-INKEY* 

1065 IF OR i*«"X" THEN IF tOl THEN 

LET fi : LET k-x+1: LET 1-2 
1070 IF i*=>"rn" OR AND x>3 AND x<27 T 

HEN IF zOl THEN LET z-1 : LET q-x+1 : LET 
i**2 

1075 IF tOl THEN GO TO 1105 
1080 PRINT AT l, k; 11 " : LET l-l + l 
1085 IF i*-"z" THEN LET k=k-<k>0> 

1090 IF i*-"x" THEN LET k=k+<k.<31> 

1095 PRINT AT l,k;"C": BEEP .002,1 

1100 IF SCREEN* <l+ljk><>" " THEN GO SUB 1 

170 

1105 IF Z< >1 THEN GO TO 1135 
1110 PRINT AT i,q;“ "; LET i“i+l 
1115 IF THEN LET q=q+<q<28> 

1120 IF ifn" THEN LET q»q-<q>3) 

1125 PRINT AT i,q;"D": BEEP .002,-5 
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1130 IF SCREEN* < i+l, q>< >" " THEN GO SUB 1 
190 

1135 IF 1=21 THEN PRINT RT l,k;" ": LET t= 
0 

1140 IF i=21 THEN LET s=s+b*2: BEEP .1,20: 
PRINT RT i,qj" LET 1=0: LET z=0 
1145 LET **a+c 

1150 PRINT RT b,*j INK RND*3; PAPER 7;"R" 
1155 IF *<3 OR 9 . >27 THEN LET c=-c : LET b-b 
“1 

1160 IF b-3 THEN GO TO 1260 
1165 GO TO 1040 

1170 PRINT RT 1, k ; " " : PRINT RT l+l,k-lj" 

1175 LET t=0: IF l<20 THEN PRINT RT 1+2,k- 
1 ; " " 

1100 IF i-l+1 OR i=l AND q«k AND z-1 THEN 
GO SUB 1190 

1185 LET k=t: LET l=k: RETURN 
1190 PRINT RT i,q; FLASH 1;"*": LET Ii-li-1 
: BEEP .1,-30: BEEP .1,-25 
1195 LET z=0: PRINT RT l,q;" ";RT i+l,q-lj" 
": IF 1i=0 THEN GO TO 1260 
1200 LET i=z: LET q=z: RETURN 
1205 DATA 0,126,126,126,126,126,126,126 
1210 DATA 0,24,118,219,255,110,24,0 
1215 DATA 231,126,60,60,60,60,60,24 
1220 DATA 28,28,0,62,8,8,20,34 
1225 FOR *=USR TO USR "d"+7: READ b= PO 
KE »,b: NEXT a 
1230 LET *=27 : LET b»20 

1235 LET c—.6: LET t»0: LET 1=1: LET z=0: 
LET i=l 

1240 LET x=0: LET f-1 
1245 LET s=0 
1250 LET 1i=10 
1255 RETURN 

1260 IF li=0 THEN PRINT RT 0,30;"0" 

1265 FOR o=-30 TO 30 STEP 2 
1270 BEEP .01,0 
1275 NEXT o 

1280 PRINT INK 0; FLASH 1 ; RT 15,9.; "GIOCHI 
ANCORA ? :" 
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1205 IF s>hs THEN LET hs=s 
1290 INPUT a* 

1295 IF a*<l>-"s" THEN GO SUB 1230: CLS : 
PFIUSE 100: GO TQ 1035 
1300 STOP 

1305 CLS : PRINT flT 0,10; PAPER 0; INK 5; F 
LASH 1;"WALL - RUN I" 

1310 PRINT AT 3,0;"Devi cercare di far ragg 
iungere" 

1315 PRINT "ai tuoi uomini la Terra,mentre 


1320 PRINT "ali Alieni invisibili costruìse 


o-no un muro micidiale che puoi 


e solo con 
1325 PRINT 

o" 

1330 PRINT 
1335 PRINT 
1340 PRINT 


le bombe." 

"Fai in fretta prima 

"finisca...I" 

: PRINT "Usa:" 

: PRINT "<Z> <X> per¬ 


di strugger 
che il temp 


sganciare l 


e Bombe" 

1345 PRINT : PRINT "<N> <M> per sganciare g 
li Uomini" 

1350 PRINT : PRINT FLASH 1;"BUONA FORTUNA" 
1355 PRINT : PRINT "BATTI UN TASTO PER INIZ 
IARE...." 

1360 PAUSE 0: CLS : RETURN 


GOLF 


Questo programma simula II gioco del golf a nove buche ed è molto sem¬ 
plice da giocare. Il computer chiederà di volta In volta il numero della mazza 
che si intende usare. Lo scopo è quello di raggiungere la nona buca col mi¬ 
nor numero di colpi. Si utilizza un metodo abbastanza insolito per definire i 
tre caratteri grafici utilizzati mediante l'istruzione BIN. 

Questo metodo è pratico solo nel caso si voglia definire un numero piutto¬ 
sto piccolo di caratteri, ma ha il vantaggio di mettere in risalto, con buona 
approssimazione, la forma che i caratteri avranno. 




1000 GQ SUB 1970 

1005 REM CHRMPIONSHIP GOLF 

1010 REM 

1015 REM DEFINIZIONE CRRRTTERI 
1020 REM 

1025 REM ■giocatore 
1030 REM 

1035 POKE USR "a"+0,BIN 00011000 
1040 POKE USR "*" + lj BIN 00111100 
1045 POKE USR "a"+2,BIN 01011010 
1050 POKE USR "a"+3,BIN 00111100 
1055 POKE USR "a"+ 4,BIN 00011000 
1060 POKE USR "*"+5,BIN 00100100 
1065 POKE USR "*"-t-6,BIN 00100100 
1070 POKE USR “a"+7 , BIN 01000010 
1075 REM 
1080 REM 

1085 REM bandiera segna-buca 
1090 REM 

1095 POKE USR "b"+0j BIN 00010000 
1100 POKE USR "b"+l , BIN 00011000 
1105 POKE USR "b"+2,BIN 00011100 
1110 POKE USR "b"+3iBIN @0011110 
1115 POKE USR "b"+4jBIN 00010000 
1120 POKE USR "b"+5,BIN 00010000 
1125 POKE USR "b"+6,BIN 00010000 
1130 POKE USR "b"+7,BIN 00010080 
1135 REM 

1140 REM bunkers in sabbia 
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1145 REM 

1150 POKE USR "c"+0,BIN 00101000 
1155 POKE USR "c"+l,BIN 01111100 
1160 POKE USR "c"+2,BIN 11111110 
1165 POKE USR "c"+3,BIN 01111100 
1170 POKE USR "c"+4,BIN 01111000 
1175 POKE USR "c"+5,BIN 01111100 
1180 POKE USR "c"+6,BIN 01111110 
1185 POKE USR "c"+7,BIN 00111110 
1180 REM 

1195 REM INIZIALIZZAZIONI 
1200 REM 

1205 DIM t<9>: LET f-1 
1210 LET hx-0: LET cx«=0 
1215 LET hw-0: LET fch-0 
1220 LET cy-0: PAPER 4: INK 7 
1225 POKE 23609,50 
1230 REM 

1235 REM CORPO PRINCIPALE 
1240 REM 

1245 LET n-9'. REM num.buche 
1250 BORDER 4 
1255 FOR j-1 TO n 
1260 CLS 

1265 PRINT AT 0,1; INK 0;"BUCA #:";J 
1270 FOR i-l TO 5 
1275 LET bx-RND#5+10 
1280 LET by-RND*5+10 

1285 PRINT AT by,bx; PAPER 8; INK 6;"C" 
1290 NEXT e 

1295 LET x-INT <RND*5>+1 
1300 LET y-INT <RND#5+12> 

1305 LET fcx-INT <RND#15+15> 

1310 LET fcy-INT <RND#10>+1 

1315 LET d-SGN C fcx-x >#SQR < < tx-x >#< tx-x )+< 

ty-y >#< ty-y)> 

1320 PRINT AT ty,tx; INK 7;"B" 

1325 PRINT AT y,x; PAPER 8; INK 0;"A" 

1330 PRINT AT 20,1; INK 0;"DISTANZA ";INT 
D#10;" mt." 

1335 INPUT INK 0;"CHE MAZZA SCEGLI <1-8? 

? ; " ; m 

1340 IF m< 1 OR in >8 THEN GO TO 1335 
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1345 LET m-INT 
1350 CO SUB 1700 
1355 GO SUB 1500 
1360 LET f-1 

1365 LET d“SGN <tx-thx>*SQR <<tx-thx>#<tx- 
thx )+< ty-thy >#< ty-thy > ') 

1370 IF d<-3 THEN PRINT AT 20,1; INK 0; "F 
UORI CAMPO-RIPROVA LA BUCA!": PAUSE 100: G 
0 TO 1260 

1375 IF d<3 THEN PRINT AT 20,1; INK 0;"SE 
I SUL GREEN! ": PAUSE 100: GO TO 1775 
1380 PRINT AT y,x;" " 

1385 LET x-thx 
1390 LET y-thy 
1395 GO TO 1320 

1400 PRINT AT 2,3; INK 0;"HAI IMPIEGATO "; 
t< j >; " COLPI" 

1405 PRINT AT 4,3; INK 0;"PER COMPLETARE L 

A BUCA ";J 

1410 PAUSE 100 

1415 NEXT J 

1420 REM 

1425 REM RISULTATI 
1430 REM 

1435 BQRDER 2: PAPER 1: INK 7 
1440 CLS 

1445 PRINT AT 2,4; INVERSE 1;"RISULTATI DE 

LLA PARTITA": INVERSE 0 

1450 PRINT 

1455 FOR r-1 TO r, 

1460 PRINT TAB 8;"Buca ";r; 

1465 IF t<r>— 1 THEN PRINT " pilla persa.." 

: GO TO 1475 

1470 PRINT " ";t<r>;" colpi" 

1475 NEXT r 

1480 INPUT "ALTRA PARTITA ?:";p® 

1485 IF p*="s" THEN RIJN 

1498 PAPER 7: BORDER 7: INK 0: STOP 

1495 REM 

1500 REM ROUTINE LANCIO 
1505 REM 

1510 PLOT INK 8; PAPER 8; INVERSE l;hx+cx 
,hy+th+cy 



1515 LET vt-<m*<2+RND*.3>> 

1520 LET th-0 
1525 LET hx«0 
1530 REM 

1535 REM GESTIONE PALLINA 
1540 REM 

1545 LET q»<y-tu)/(tx-x) 

1550 LET w-vt#<SIN < 45*PIx 180 > > 

1555 LET CX"< x+1>#8 

1560 LET cy-21-y: LET cy=cy#8 

1565 LET vh«vt*< COS (45#P1x180>> 

1570 LET th-fch+vv 
1575 LET hy»q#hx 
1580 LET vv-vv-2.5 
1585 LET hx«hx+vh 
1590 LET hy-q#hx 

1595 IF hx+cx>255 THEH GO TO 1965 

1600 IF hy+th+cy>175 THEN GO TO 1965 

1605 IF th<-0 THEH GO TO 1630 

1610 PLOT PRPER 8; OVER 1; INK 8;hx+cx,hy 

+th+cy 

1615 PAUSE 2 

1620 PLOT PRPER 8; OVER lj INK 8;hx+cx,hy 
+th+cy 

1625 GO TO 1570 

1630 LET thx=INT <<hx+cxV6> 

1635 LET thy-INT <<175-hy-th-cyV8) 

1640 IF POINT < hx+cx,hy+th+cy >=1 THEN GO 
TO 2045 

1645 PLOT INK 8; PRPER 8;hx+cx,hy+th+cy 
1650 RETURN 
1655 REM 

1660 REM PRLLINfi PERSA 
1665 REM 

1670 PRINT RT 2,li INK 2; PRPER 7; INVERSE 
1;"HAI PERSO LR PALLA" 

1675 BEEP 1,0 
1680 LET t<J>«-l 
1685 PAUSE 75 
1690 GO TO 1415 
1695 REM 

1700 REM ROUTINE SWING 
1705 REM 
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1710 LET t< j j >+l 

1715 LET sx=x#8+4 

1720 LET *y=21-y: LET sy=sy*8+4 

1725 FOR k— 5 TO -40 STEP -5 

1730 LET *-kx30#PI 

1735 LET xs=7*SIN ft: LET ys"=7*C0S * 

1740 PLOT INK 8; PAPER 8;sx,sy: DRAW IHK 
8; PAPER 8; OVER l;xs,ys 
1745 IF k<>-30 THEN PAUSE 5 
1750 IF k— 30 THEN BEEP .1,-2 
1755 PLOT INK. 8; PAPER 8;sx,sy: DRAW INK 
8; PAPER 8; OVER l;x#,ys 
1760 NEXT k 
1765 RETURN 
1770 REM 

1775 REM SUL GREEN 
1780 REM 

1785 PAUSE 10: PAPER 4: CLS 

1790 LET gx-INT <RND#5>+1 

1795 LET gy-15 

1800 LET hx=INT <RND*15>+10 

1805 LET hy-15 

1810 LET d-hx-gx 

1815 IF d<0 THEN LET d=ABS <d> 

1820 PRINT AT hy,hx; INK 0;"O" 

1825 PRINT AT gy,gx; INK 8; "A" 

1830 PRINT AT 18,1; INK 0;"GREEN - BUCA A 
";d;" mt." 

1835 INPUT "CHE MAZZA SCEGLI < 1-8> 

1040 IF m<1 OR m>8 THEN GO TO 1835 

1845 LET t< j >-t< j >+l 

1850 LET hl-9-m+INT <RND#2> 

1855 LET d-d-hl 

1860 FOR w-flx+1 TO 9X+hl 

1865 PRINT RT hy,w; INK 0;"." 

1870 PAUSE 10 

1875 PRINT AT hy,w;" " 

1880 NEXT w 

1885 PRINT AT 9y,gx;" " 

1890 LET 9X«9x+hl 
1895 IF gx-hx THEN GO TO 1925 
1900 IF d<0 THEN CLS : LET gx-hx+d: GO TO 
1810 
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1905 GO TO 1820 
1910 REM 

1915 REM PfìLLR IN BUCR 
1920 REM 

1925 CL8 : GO TO 1400 
1930 REM 

1935 REM PALLA NEL BUNKER 
1940 REM 

1945 PRINT RT 20,1; INK 0;"SEI FINITO DRIT 
TO NEL BUNKER!" 

1950 PRUSE 100 
1955 LET f-2 
I960 GO TO 1400 

1965 LET hy=0: LET ty-hy: LET cy=hy: LET h 
x«hy; LET cx-hy: GO TO 1660 

1970 REM - 

1975 REM TITOLO DI TESTR 

1980 REM - 

1985 BORDER 1: PAPER 1: INK 7: CLS 

1990 PRINT RT 2,7; FLASH 1;"CHRMPIONSHIP G 

OLF" 

1995 PRINT : PRINT "BENVENUTO RL MIGLIOR G 
OLF fi 9" 

2000 PRINT "BUCHE DEL MONDO!" 

2005 PRINT "DEVI USARE TUTTO IL TUO FIUTO" 
2010 PRINT “PER DOSARE Lfl FORZA DEI COLPI 
E" 

2015 PRINT "ANDARE IN BUCA COL MINOR NUMER 
0" 

2020 PRINT "POSSIBILE DI TENTATIVI." 

2025 PRINT : PRINT "SCEGLI LE MAZZE DELLA 
TUA SACCA" 

2030 PRINT "CON GRANDE CURA!" 

2035 PRINT : PRINT : PRINT "PREMI UN TASTO 
PER INIZIARE " 

2040 PRUSE 0: RETURN 


RENNE 

È un programma ideato nel periodo natalizio ma giocabile anche a Pasqua 
tanto è divertente. 
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Babbo Natale vola con la sua slitta sopra i tetti di alcune case. Deve rac¬ 
cogliere i regali che piovono dal cielo e calarli nei camini delle case ma non 
deve farsi vedere dai bambini che in queste dormono altrimenti il gioco fini¬ 
sce. Il tutto diventa più difficile man mano che si superano i primi livelli di 




1000 PAPER 1: INK 7: BQRDER 1: CLS 

1005 POKE 23658,8: GO SUB 1230 

1010 LET hs-0 

1015 GO SUB 1408 

1020 LET sk"«.38: LET s=*0 

1025 LET a*-"A": LET b*="B" 

1030 LET c*="C": LET x=27 
1035 DIM d*(28 > 

1040 LET a-1: LET h=INT <RND*28>+2 
1045 PRINT AT 0,22;"RECORD:hs 
1050 LET p-0 

1055 PRINT AT 0,0;"REGALI s 

1060 IF INKEY#="X" THEN LET x*x+<2 AND 

x<27 > 

1065 LET a*»"D": LET b*="E": LET C#«"F" 
1070 IF INKEY*""Z" THEN LET x=x-<2 AND 

x>l > 

1075 LET a*="A": LET b*»"B": LET c*»"C" 
1080 PRINT AT 10,x-2;" ";AT 10,x; 

INK 2,a*; INK 0jb*j INK 2;c*; 

1085 IF NOT p THEN LET 9=9+1• PRINT AT 
9-1,h;" "j AT 9 ,hj INK 6;"G" 
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1090 IF 9-10 THEH IF h=x+2 OR h-x+1 OR 
h=x THEN LEI p=1 

1095 IF 9=12 THEN IF SCREEN* <9+l,h>=" : 
11 THEN GO TO 1120 

1100 IF 9=12 THEN PRINT AT 12,h;" " : LE 
T 9-1: LET h=INT < RNDS28)+2 
1105 IF P THEN IF INKEY»="M" THEN LET 
9=10 : LET h=x-1 +<**-"D 11 >+<3 AND c*="C">: 
LET p=0 

1110 IF RND>sk THEN LET q=INT <RND*7>+1 
; LET e-INT <RND#4>: PRINT PAPER 3;AT 1 
6,q#4-*+lj" LET d*< q*4-e)-"p": IF d*< 
q*4-3 TO q*4>» H PPPP" THEN GO TO 1155 
1115 GO TO 1060 
1120 PRINT HT 12,hj" " 

1125 IF SCREEN* <18,h)-"_" THEN GO TO 1 
040 

1130 LET s=*+l: PRINT AT 0,0;"REGALIs 

1135 PRINT AT 18,h; INK 0; PAPER 6;" "; 

AT 19,h;"_" 

1140 FOR f=l TO 3: BEEP .001,30: NEXT f 
1145 FOR f-4 TO 28 STEP 4: IF SCREEN* <1 

8, f THEN NEXT f: LET sk=sk-.02: CL 

S : GO SUB 1400: co TO 1025 

.1150 GO TO 1040 

1155 IF SCREEN* <18,q*4XTHEN GO T 
0 1180 

1160 GO TO 1060 

1165 RESTORE 1170: LET z=.3: LET C-.6: F 
OR f»l TO 26: READ *,b: BEEP *,b: NEXT f 
1170 DATA z,6,z,6,c,6,z,6,z,6,c,6,z,6,z, 

9, z,2,z,4,l,6,z,6,z,7,z,7,z,7,z,7,z,7,z, 
6,z,6,z,6,z,9,z,9,z,7,z,4,c,2,c,2 

1175 RETURN 

1180 FOR f=10 TO 1 STEP -.5: PRINT AT f, 
x ; INK 2 : a*; INK @;b*; INK 2;c*.;AT f+l,x 
; 11 ": BEEP .005,2*f: NEXT f 

1185 IF s>hs THEN LET hs=s 
1190 PRINT AT 1,x;" 

1195 PRINT AT 9,hj" " 

1200 PRINT FLASH 1 ; AT 18,q*4-lj INK 0; 

PAPER 6; "_";AT 19,q*4-l;"K_" 

1205 PRINT AT 8,8; FLASH 1;"TI HANNO VIS 
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TO I" 

1210 GO SUB 1165 

1215 PRINT flT 11,£j FLASH 1;"PREMI UH TA 
STO PER GIOCARE.." 

1220 PAUSE 0: PAUSE 0 
1225 CLS : GO TO 1015 

1230 CLS : PRINT AT @.,9; FLASH 1; "RENNE 
8, REGALI" 

1235 PRINT ; PRINT "E'Natale e Tu,che se 
i il Grande" 

1240 PRINT "BABBO NATALE,devi consegnare 
al 11 

1245 PRINT "piu.'presto tutti i REGALI eh 
e " 

1250 PRINT "piovono dal tuo deposito su 
nel " 

1255 PRINT "cielo.Ma ATTENTO! devi fare 
in " 

1260 PRINT "modo che i bambini non ti ve 
dano" 

1265 PRINT "altrimenti non potrai piu' f 
are " 

1270 PRINT "i tuoi magnifici Regali." 
1275 PRINT "La NEVE sui tetti si sciogli 

e " 

1260 PRINT "perche'i bambini che hanno r 
ice-" 

1285 PRINT "vuto i Regali accendono la l 

1290 PRINT "Se ti scoprono,quando la Nev 
e si " 

1295 PRINT "e'sciolta hai perso." 

1300 PRINT "- 

1305 PRINT "<Z> Per andare a SINISTRA" 
1310 PRINT "<X> per andare a DESTRA" 

1315 PRINT "<M> per calare i regali nei 

1320 PRINT " camini delle Casette" 
1325 PRINT "- 

1330 PRINT FLASH 1;"BATTI UN TASTO PER 
GIOCARE." 
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1335 RESTQRE 1340: FOR y»USR TO USR 
"k"+7: READ x: POKE y,x = NEXT y 
1340 DATA 0,0,1,0,0,0,0,0 
1345 DATA 192,64,160,224,127,126,99,82 
1350 DATA 0,20,8,124,156,72,63,128 
1355 DATA 16,56,16,62,56,18,252,1 
1360 DATA 3,2,5,7,254,126,198,74 
1365 DATA 0,0,128,0,0,0,0,0 
1370 DATA 0,0,0,54,54,0,54,54 
1375 DATA 0,1,3,7,15,31,63,127 
1380 DATA 0,128,192,224,240,248,252,254 
1385 DATA 255,220,73,65,64,0,0,0 
1390 DATA 24,60,86,60,24,126,255,255 
1395 PAUSE 0; CLS : RETURN 
1400 FOR X-2 TO 26 STEP 4 
1405 PRINT INK 3 jAT 13,x+1j":"j PAPER 3 
j INK 5jAT 14,x+1;"H"; PAPER Ij'T'jAT 15 
, x; "HHI " ; INK 7 ; PAPER 3;AT 16,x;"JJJJ" 
; AT 17, Xi PAPER lj INK 3;"«BB";AT 18, x; 
■ 1" ; AT 19, xj "■ ■" ; AT 20, x; "■■■" ; AT 

1410'NEXT x 

1415 OVER 1: INK 3: FOR x-48 TO 208 STEP 

32 

1420 PLOT X,0 : DRAW 0,39: NEXT x: INK 7: 
OVER 0: 

1425 FOR x=24 TO 216 STEP 32: PLOT x,23: 
DRAW 15,0: NEXT x 
1430 RETURN 


THE WALL 


Questo programma è simile a quello che un po' di tempo fa era uno dei vi¬ 
deogame più presenti nel bar e nelle sale gioco. 

Lo scopo del gioco è di abbattere un muro di mattoncini posti nella parte 
alta dello schermo e nel frattempo proteggere la fila di mattoncini posti in 
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Ogni mattoncino abbattuto vale 10 punti mentre quelli in basso non modifi¬ 
cano il punteggio. Ogni 1000 vengono aggiunti 100 punti. Il gioco finisce 
quando i mattoncini in basso sono esauriti, mentre quando i mattoncini in al¬ 
to sono stati tutti abbattuti, il gioco riprende con la ricostruzione del muro la¬ 
sciando la fila In basso inalterata. 

In qualsiasi momento si può interrompere il gioco premendo i tasti SHIFT- 


Dando il comando RUN si dovrà attendere una lunga pausa necessaria 
per memorizzare il linguaggio macchina, verrà quindi chiesto il grado di diffi¬ 
coltà (da 1 a 4). 

I comandi per muovere la racchetta sono: 

1-a sinistra lentamente 

5-a destra lentamente 

1 —2— a sinistra velocemente 
4—5— a destra velocemente 

In questi ultimi due casi i tasti vanno premuti contemporaneamente, men¬ 
tre premendo solo il 2 o solo il 4, la pallina aumenterà la sua velocità. 

II programma si divide in due parti: 

- una parte molto consistente costituita dal L/M; 

— una parte in Basic che gestisce la memorizzazione del L/M, dei punteggi, 
le varie richieste e la costruzione del campo di gioco. 

Per quanto riguarda la prima consiglio solo una cosa: molta pazienza nel 
digitare tutti i codici. 

Per la seconda avverto che è possibile qualche modifica. Ad esempio la 
disposizione del muro e quindi il numero di mattoncini. 

La posizione del muro e le coordinate iniziali della pallina (POKE 32255,Y, 
POKE 32256,X) sono strettamente legate. 

Queste coordinate devono essere in genere, una combinazione di numeri 
pari o dispari. Suggerisco al lettore di fare diverse prove in funzione del muro 
che si vuole costruire. 

Ultima cosa: il numero di mattoni N deve essere memorizzato con POKE 
31934,N. 
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1000 REM 

1005 DRTR 31600,31600 
1010 REM 

1015 DRTR "CD","DD","7E","3E","20","B9" 
1020 DRTR "C8","3E","91","B9","20","4D" 
1025 DATA "3R","Ffl","?D","FE","00","20" 
1030 DRTR "09","32","FC","7D","3C","32" 
1035 DRTR "Ffì","7D","18","0E","32","FC" 
1040 DRTR "7D","3D",“32","FR","7D","18" 
1045 DRTR "05","52","69","67","6F","52" 
1050 DRTR "3E","20","D7","3E","20","D7" 
1055 DRTR "3E","08","D7","3E","08","D7" 
1060 DRTR "3R","FF","7D","FE","14","20" 
1065 DRTR "11","3fl","DB","7E","3C","32" 
1070 DRTR "DB","7E","21","00","01","11" 
1075 DRTR "1E","00","CD","B5","03","C9" 
1080 DRTR "CD","27","7D","3R","DC","7E" 
1085 DRTR "3C","32","DC","7E","C9" 

1090 REM 

1095 DRTR 31689,31795 
1100 REM 

1105 DRTR "CD","B?","7E","FE","00","20" 
1110 DRTR "12","3fl","FF","7D","3C","32" 
1115 DRTR "FF","7D","3E","00","32","Ffl" 
1120 DRTR "7D","3C","32","FC","7D","18" 
1125 DRTR "10","3fì","FF","7D","3D","32" 
1130 DRTR "FF","7D","3E","00","32","FC" 
1135 DRTR "7D","3C","32","Ffì","7D","3fl" 
1140 DRTR "FB","7D","FE","01","20","09" 
1145 DRTR "3fl","00","7E","3C","32","00" 
1150 DRTR "7E","18","07","3fl","00","7E" 



1155 DATA 
1160 DATA 
1165 DflTfi 
1170 DATA 
1175 DATA 
1180 DATA 
1185 DATA 
1190 DATA 
1195 REM 
1200 DATA 
1205 REM 
1210 DATA 
1215 DATA 
1220 DATA 
1225 DATA 
1238 DATA 
1235 DATA 
1240 DATA 
1245 DATA 
1250 DATA 
1255 DATA 
1260 DATA 
1265 DATA 
1270 DATA 
1275 DATA 
1280 DATA 
1285 DATA 
1290 REM 
1295 DATA 
1300 REM 
1305 DATA 
1310 DATA 
1315 DATA 
1320 DATA 
1325 DATA 
1330 DATA 
1335 DATA 
1340 DATA 
1345 DATA 
1350 DATA 
1355 DATA 
1360 DATA 
1365 DATA 


"3D","32"^"00" 
"B9"j"20","09". 
"FB","7D","3D" 
"3E","94","B9". 
"01" j "32'V'FD". 
"FB","7D","3E" 
"16","01","03". 
"7D","CD","3C" 

31796,31890 

" 00 "," 00 "," 00 " 
"0B","20","93". 
"94","52","01" 
"78","FE","FF" 
"00","10","FE" 
"28","10","FE" 
"CD","8D","7D" 
"A7","C8","3D" 
"CD","8D","7D" 
"A7","C8","3D" 
"C9","FE","EF" 
"E7","C0","CD" 
"3A","7C",“FE" 
"32","3A","7C" 
"3A","3A","?C" 
"3C","32","3A" 

31906,31998 

"CD","01","TE" 
"10","FD","CD" 
"E5","7C","CD" 
"DB","7E","FE" 
"3A","DC","7E" 
"El","AF","32" 
"FD","7D","3C" 
"32","FB","7D" 
"00","06","11" 
"CD","B5","03" 
"00","A7","ED" 
"C9","06","4B" 
" 01 "," 11 "," 01 " 


"7E","3E","93" 
"3E","01","32" 
"32","FD","7D" 
"20","09","3E" 
"7D","3D","32" 
"02","CD","01" 
"00","11","FE" 
"20","C9" 


"00","16","0B" 
"8F","8F","8F" 
"FE","F7","ED" 
"20","05","06" 
"C9","FE","FE" 
"FC","20","19" 
"3A","3A","7C" 
"32","3A","7C" 
"SA","3A","7C" 
"32",»3A","7C" 
"28","10","FE" 
"98","7D","3A" 
"1A","C8","3C" 
"CD","98","7D" 
"FE","1A","C8" 
"7C","C9" 


"06","01","76" 
"54","1F","D2" 
"42","7C","3A" 
"10",“28","2B“ 
"FE","5A","20" 
"FC","7D","32" 
"32","FA","7D" 
"3E","0A","21" 
"05","00","E5" 
"El","11","08" 
"52","20","F0" 
"C5","21","00" 
"00","E5","CD" 
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1370 ORTR 
1375 DATA 
1380 DATA 
1385 REM 
1390 DATA 
1395 REM 
1400 DATA 
1405 DATA 
1410 DATA 
1415 DATA 
1420 DATA 
1425 DATA 
1430 DATA 
1435 DATA 
1440 DATA 
1445 DATA 
1450 DATA 
1455 DATA 
1460 DATA 
1465 DATA 
1470 DATA 
1475 REM 
1480 DATA 
1485 REM 
1490 DATA 
1495 DATA 
1500 DATA 
1505 DATA 
1510 DATA 
1515 DATA 
1520 DATA 
1525 DATA 
1530 DATA 
1535 DATA 
1540 DATA 
1545 DATA 
1550 DATA 
1555 DATA 
1560 DATA 
1565 DATA 
1570 REM 
1575 DATA 
1580 REM 


'B5","03","E1","11","10","00" 
■A7","ED","52“,"20","F0","CI" 
■10","E9","09" 

32000,32085 


'16"^"15","00" 
'55","4E","54" 
'30"j"30","30" 
'47","52","41" 
'31 ","20","4D" 
'30","30","30" 
'94","14","00" 
'3C","FE","3A" 
'30","32","0E" 
'32","0E","7D" 
'7D","3C","FE" 
'3E","30","32" 
’04","32","0D" 
'0F","00","11" 
’CD","B5" 


"14","01","50" 
"49","3A","30" 
"30","93","94" 
"44","4F","3A" 
"41","58","3A" 
"30","30","93" 
"CD","AA","7E" 
"20","07","3E" 
"7D","18","04" 
"C9","3A","0D" 
"3A","20","07" 
"0D","7D","18" 
"7D","C9","21" 
"28","00","E5" 


32086,32180 


’03","El" 
'ED","5A" 
'ED","3E" 
•3A","0C" 
'20","07" 
'7D","18" 
■C9","3A" 
■3A","20" 
'0B","7D" 
'C9","2A" 
’7D","11" 
'11","38" 
'C3","3C" 
'93",“8F" 
■3E","02" 
'98","7D" 


" 11 "," 10 " 
"7D","FE" 
"31","32" 
"7D","3C" 
"3E","30" 
"04","32" 
"0B","7D" 
"06","SE" 
"C9","32" 
"39","7C" 
"Al","7D" 
"7C","01" 
"20","16" 
"8F","8F" 

"CD",-01" 
"C3","CI" 


'00","A7' 
■FF","20' 
’0D","7D' 
•FE",”3A' 
■32", "0C 
■0C","7D' 
'3C","FE' 
'30",”32' 
’0B","7D' 
'22","A2' 
'18","03' 
'09","00' 
’ 12 "," 00 ' 
'94","20' 
'16","CD 1 
•7C" 


32250,32350 
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1595 DATA "01","00","00","01","16%"13" 
1590 DATA "0F","3E","02","CD","01","16" 
1595 DATA "01","27","00","11","00","7D" 
1600 DATA "CD","3C","20","01","03","00" 
1605 DATA "11","FE","?D","CD","3C","20" 
1610 DATA "3E","20","D7","2R","FF","7D" 
1615 DATA "ED","4B","FA","7D","ED","42" 
1620 DATA "ED","4B","FC","7D","ED","4A" 
1625 DATA "22","FF","7D","00","00","00" 
1630 DATA "00","00","00","00","00","00" 
1635 DATA "01","03","00","11","FÉ","7D" 
1640 DATA "CD","3C","20","CD","70","7B" 
1645 DATA "3E","90","D7","3A","00","7E" 
1650 DATA "FÉ","00","20","12","3E","00" 
1655 DATA "32","FB","7D","3C","32","FD" 
1660 DATA "7D","21","0F","02","11","0A“ 
1665 DATA "00","CD","B5","03","3A" 

1670 REM 

1675 DATA 32351,32451 
1680 REM 

1685 DATA "00","7E","FE","1F","20","12" 
1690 DATA "21","00","02","11","0A","00" 
1695 DATA "CD","B5","03","3E","0@","32" 
1700 DATA "FD","7D","3C","32","FB","7D" 
1705 DATA "3A","FF","7D","FE","00","20" 
1710 DATA "12","21","00","02","11","0A" 
1715 DATA "00","CD","B5","03","3E","00" 
1720 DATA "32","FA","7D","3C","32","FC" 
1725 DATA "7D","3A","FF","7D","FE","14" 
1738 DATA "20","12","21","00","02","11" 
1735 DATA "0A","00","CD","B5","03","3E" 
1740 DATA "00","32","FC","7D","3C","32" 
1745 DATA "FA","7D","C9","21","00","03" 
1750 DATA "11","10","00","CD","B5","03" 
1755 DATA "3A", "0E","7D","C9","21","00" 
1760 DATA "05","11","05","00","CD","B5" 
1765 DATA "03","3A","FA","7D","C9" 

1770 REM 

1775 DATA 32475,32599 
1760 REM 

1785 DATA "10",“2B","2A","36","5C","24" 
1790 DATA "11","80","20","CD","1B","7F" 
1795 DATA "14","1E","90","21","3A","7F" 




1800 DATA 
1805 DATA 
1810 DATA 
1815 DATA 
1820 DATA 
1825 DATA 
1830 DATA 
1835 DATA 
1840 DATA 
1845 DATA 
1850 DATA 
1855 DATA 
1860 DATA 
1865 DATA 
1870 DATA 
1875 DATA 
1880 DATA 
1885 DATA 
1890 REM 
1895 DATA 
1900 REM 
1905 DATA 
1910 DATA 
1915 DATA 
1920 DATA 
1925 DATA 
1930 DATA 
1935 DATA 


"D5","ED", 
"02","06", 
"00","14", 
"20","F3", 
"09","06", 
"7B","BA", 
"50","1E", 
" 01 "," 00 ", 
"00","D5", 
"1A","14", 
"0D","20", 
"4A","DI", 
"7B","BA", 
"00","F0", 
"0F","0F", 
"0F","00", 
"F0","FF", 
"FF","F0", 


"SB","84", 
"04","1A", 
"10","F9", 
"DI","06", 
"00","09", 
"20","DE", 
"A5","CD", 
"00","09", 
"ED","5B", 
"BE","20", 
"F7","DI", 
"09","09", 
"20","E2", 
"00","FF", 
"0F","F0", 
"F0","0F", 
"F0","00", 
"FF","FF", 


USR 


,USR "*"+7 


"00","18","30","7E", 
"18","00","FF","80", 
"80","80","80","FF", 
" 01 "," 01 "," 01 "," 01 ", 
"00","01","03","07", 
"01","00","00","80", 
"E0","00","80","00" 


"50", 
"BE", 
"23", 
" 00 ", 
"DI", 
"2A", 
"1B", 
" 01 ", 
"84", 
"0A", 
"06", 
"DI", 
"09", 
" 00 ", 
"0F", 
"F0", 
"FF", 
"FF" 


"7E", 


"FF", 

" 01 ", 


"0E" 

"20" 

"0D" 

"4A" 

"14" 

"7B" 

"7F" 

"08" 

"50" 

"23" 

" 00 " 

"14" 

"0F" 

" 00 " 

"FF" 

“F0" 

"0F" 


"30" 


" 01 " 

"FF" 

"03" 

"E0" 


9000 REM 

9805 REM FINE DATA WALL 
9010 REM 

9015 CLEAR 31599: REM RAMTOP LOW 
9020 PRINT AT 12,7; FLASH 1 ;"Attendi un 
attimo!" 

9025 FOR v-0 TO 9 

9030 READ i: READ f 

9035 PRINT AT 14,19; INVERSE l;f 

9048 FOR. P=i TO f: READ a* 

9045 LET h=CODE **<1>-48 
9050 LET h-h-7#<a*<1>>"«"> 









9055 LET l-CODE a*<2>-46 
9060 LET l-l-7*< **<2)>"0" > 

9065 PRINT flT 14,8; FLASH 1 ;p;AT 14,15; 
INVERSE 1;*» 

9070 POKE P,16#h+1: BEEP .01,20 
9075 NEXT p= BEEP .01,10: NEXT v 
9080 REM 

9085 REM THE WRLL 

9099 REM 

9095 CLEFlR : GO TO 9250 

9100 LET a*«CHR* 145+CHR* 146 
9105 PAPER 1: INK 9; CLS 
9110 FOR a*0 TO 31 STEP 4 

9115 PRINT PAPER 2; FLASH 1;AT 20,a;a* 
9120 PRINT PAPER 6; FLASH ljAT 20,a+2;a 
• 

9125 NEXT a 

9130 FOR <a-0 TO 2 

9135 FOR a-9 TO 31-9 STEP 2 

9140 PRINT PAPER 9+1;AT a,a;a* 

9145 PRINT PAPER 9+1;AT 8-9,a;a* 

9150 NEXT a: NEXT 9 

9155 RANDQMIZE U8R 32170 

9160 RANDQMIZE USR 31906 

9165 POKE 32255,19: POKE 32256,15 

9170 IF PEEK 32476-90 THEN POKE 32476,0 

; GO TO 9130 

9175 BORDER 1: FLASH 1 

9180 PRINT AT 9,0;"FINE "j 

9185 PRINT CHR* 145+CHR* 146; 

9190 PRINT " GIOCO "+CHR* 144 
9195 LET a*-"": LET b*-a* 

9200 FOR a-32011 TO 32015 
9205 LET a*-a*+CHR* PEEK a 
9210 LET b*-b*+CHR* PEEK <a+19> 

9215 POKE a,48: NEXT a 

9220 LET a-VAL a*: LET b-VAL b* 

9225 IF a<-b THEN GO TO 9250 

9230 FOR a-1 TO 5 

9235 POKE < 32029+a),CODE «*<a> 

9240 NEXT a 

9245 PRINT AT 11,3; "Hai il punteggio Piu. 
'alto" 



9250 FLASH 0: INPUT "Difficolt*' <l-4> " 
; LINE ** 

9255 IF THEN GO TO 9250 

9260 LET a=VAL a* 

9265 IF a>4 OR a<l THEN GO TO 9250 
9270 POKE 31910,5-a: POKE 32024,a+49 
9275 POKE 31801,20-a*2.5 
9200 CLEAR : PRINT AT 8,8; "Premi Ufi tast 
o" 

9285 
9290 
9295 
9300 


PING 


Questo gioco può essere la base per farne uno più complesso. Infatti as¬ 
somiglia al più complicato THE WALL presentato in questo libro. È molto 
semplice sia come programmazione che come gioco. Può essere ulterior¬ 
mente migliorato. 

Lo scopo è quello di respingere la pallina con la racchetta che di volta in 
volta sale verso l'alto di una linea. 

I tasti da usare sono 1 e 0 per muovere a sinistra e a destra. 

1000 BQRDER 1: PAPER 7: INK 0 

1005 LET h=0. LET ht=0: LET d=19: LET bb=@ 

1010 GO SUB 1220: GO SUB 1185 

1015 LET bb-bb+1 

1020 IF bb>10 THEN GO TO 1300 

1025 LET *«=1: LET b=e. 

1030 LET v=l: LET w=v 
1035 LET x«10: LET y-d 
1040 PRINT AT 21,5;"PALLA:";bb; 

1045 PRINT AT y,x; PAPER 8; INK 0; " mm " 

1050 PRINT AT 21,19;"PUNTI :";ht 

1055 GO SUB 1110: GO SUB 1090 

1060 IF y<>b+W THEN LET y=d: GO TO 1045 

1065 BEEP 1,0 
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PAUSE 0: BORDER 4 
POKE 32475,0: POKE 32476,0 
POKE 32255,19: POKE 32256,15 
RUN 9100 



1070 PRINT RT y,x; PRPER 8;" ": REM 5 $ 

1075 PRINT RT b.a; PRPER 8;" " 

1090 LET d“d+< d<19 ) 

1085 LET h—0 ■ GO TO 1015 
1090 LET a*»INKEY* 

1095 IF a*«"l" THEN LET x=x-<x>0> 

1100 IF a*-"0" THEN LET x-x+<x<27> 

1105 RETURN 

1110 PRINT RT b,*; PAPER 8; INK 8;" " 

1115 LET a=a+v: LET b-b+w 

1120 IF *-30 OR *-l THEN LET V—v = BEEP .0 
1,40 

1125 IF b-1 THEN LET w—w: BEEP .01..-15 
1130 IF u-b+w THEN GO TO 1145 
1135 PRINT RT b.a; PRPER 8;"fl" 

1140 RETURN 
1145 LET r-*-x 

1150 IF r<1 OR r>3 THEN GO TO 1135 
1155 LET w—w: BEEP .01.5 
1160 LET h-h+1: LET ht-ht+1 
1165 IF h<>2 THEN GO TO 1135 
1170 LET h-0: LET d-d-1 

1175 PRINT RT y.x; PRPER 8;" ": REM 5 s 

pazi 

1180 GO TO 1110 

1185 FOR i-0 TO 31 

1190 PRINT RT @,ij PRPER 0j" " 

1195 NEXT 1 

1200 PRINT RT 0.4; INK 7; PRPER 0;"1 - Sim 
«tra 0 •= Deatra" 

1205 FOR i-0 TO 20 

1210 PRINT RT i.0; PAPER 0;" ";RT i.31;" " 
1215 NEXT i- RETURN 
1220 PRINT RT 7.0; 

1225 LET c—2 ■ GO SUB 1240 

1230 LET c-6: GO SUB 1240 

1235 GO TO 1255 

1240 FOR 1-1 TO 7*32 

1245 PRINT PRPER Ci" "i 

1150 IF r<1 OR r>3 THEN GO TO 1135 

1155 LET w—w: BEEP .01.5 

1160 LET h-h+1: LET ht-ht+1 



1165 IF h< >2 THEN GO TQ 1135 
1170 LET h=@: LEI d=d-l 

1175 PRINT RT y,x; PRPER 8;" REM 5 s 

pazi 

1180 GO TO 1110 

1185 FOR i=0 TO 31 

1190 PRIHT RT 0,i; PRPER 0; " " 

1195 NEXT i 

1200 PRINT RT 0,4; INK 7; PRPER 0;"1 - Sini 
stra 0 ■ Destra" 

1205 FOR i-0 TO 20 

1210 PRINT RT i, 0j PRPER 8;" ";RT i,31;" " 
1215 NEXT i: RETURN 
1220 PRINT RT 7,0; 

1225 LET c»2: GO SUB 1240 
1230 LET c-6: GO SUB 1240 
1235 GO TO 1255 
1240 FOR i-1 TO 7*32 
1245 PRINT PAPER a" "; 

1250 NEXT i: RETURN 
1255 PQKE USR "a"+0,BIN 00111100 
1260 POKE USR "a"+l,8IN 01111110 
1265 POKE USR "a"+2,BIN 11111111 
1270 POKE USR "a"+3,BIN 11111111 
1275 POKE USR "a"+4,BIN 11111111 
1280 POKE USR "a"+5,BIN 11111111 
1285 POKE USR "a"+6,BIN 01111110 
1290 POKE USR "a"+7,BIN 00111100 
1295 RETURN 

1300 INK 0: PRPER 7: CLS 

1305 PRINT RT 10,10;"Punteoaio:";ht 

1310 INPUT "Giochi ancora ?:";a* 

1315 IF a*< 1 )■"»" THEN RIJN 
1320 BORDER 7: CLS : PRINT "Ciao" 


GENERATORE MORSE 


il programma seguente è in grado di tradurre un messaggio scritto dall'u¬ 
tente generando una serie di BEEP secondo la codifica MORSE. 
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Le opzioni che offre il programma sono le seguenti: 

1) possibilità di variare la velocità delle parole tradotte al minuto, 

2) possibilità di generare parole casuali a scopo dimostrativo, 

3) si può ripetere un messaggio un numero di volte infinito, 

4) e ovviamente si può sentire all'istante la codifica del carattere battuto 
sulla tastiera. 


- non si usano caratteri grafici per cui, ad esempio alla linea 1160, bisogna 
introdurre le lettere tra apici come caratteri A.S.C.I.I. normali. 


5.000 BQRDER 1: PAPER 1: LET a=2 ; LEI b»6 


1005 FOR i=21 TO 0 STEP -1 
1010 PRINT AT i,8; INK a; PAPER b; FLASH 
1 ;"GENERATORE-MORSE" 

1015 LET c-a: LET a-b: LET b=c ; NEXT i 
1020 PRINT #0;AT 1,9;"PREMI UN TASTO"; P 
AUSE 0 

1025 BORDER 5; PAPER 5; INK 0; CLS 
1030 POKE 23656,8; RESTORE 
1035 DIM A#< 47,6 > 

1040 FOR 1-1 TO 47 
1045 READ A*U): NEXT I 

1050 DATA "131313","","111111","","33333 
", "13333","11333","11133","11113","11111 
","31111","33111","33311","33331","33311 
1","313131","","","","113311","" 

1055 DATA "13","3111","3131","311","1"," 
1131","331"»"1111","11","1333","313","13 
11","33","31","333","1331","3313","131", 
"111","3","113","1113","133",“3113","313 
3","3311" 

1060 LET E=12; LET F*.056 

1065 CLS ; PRINT AT 4,8;"GENERATORE MORS 

E" 

1070 PRINT AT 6,2;"PREMI UNO DEI SEGUENT 
I TASTI" 

1075 PRINT AT 8,1;"V ** SELEZIONE VELOCIT 




fl ‘ < MAX. 20 > " 

1080 PRINT flT 10,1 ;"L = INPUT LETTERE" 
1085 PRINT flT 12,1;"R * RIPETIZIONE ME8S 
AGGIO" 

1090 PRINT flT 14,1 ;"C “ PAROLE CASUALI" 
1095 PRINT FLASH 1;AT 17,0;"VELOCITA' - 
"; E;" PAROLE PER MINUTO" 

1100 PRINT AT 21,10;"F PER FINIRE" 

1105 PAUSE 10 : GO SUB 1425 

1110 IF G*-"C" THEN GO TO 1145 

1115 IF G*«"L" THEN GO TO 1205 

1120 IF G*«"R" THEN GO TO 1250 

1125 IF G*-"V" THEN GO TO 1335 

1130 IF G*-"F" THEN GO TO 1440 

1135 IF G®="" THEN GO TO 1105 

1140 PRINT AT 19,11;"SBAGLIATO!": BEEP . 

5,-40: GO TO 1065 

1145 CLS : PRINT BRIGHT 1 ;AT 0,9;"PAROL 
E CASUALI" 

1150 PRINT AT 1,5;"PREMI ENTER PER FINIR 
E" 

1155 PRINT AT 2,6;"UN TASTO PER FERMARE" 
1160 LET X#"*"ABCDEFGHIJKLMNOPGRSTUVWXYZ■ 

,:;?1234567890" 

1165 DIM H*<5> 

1170 FOR X**l TO 5 

1175 LET H*<X>=X*<INT <RND#LEN X*>+1> 
1180 NEXT X 
1185 LET D«=H® 

1190 GO SUB 1310 

1195 PAUSE 5: IF INKEY*<>"" THEN GO SUB 
1410 

1200 GO TO 1170 

1205 CLS : PRINT BRIGHT 1;" CODIFICA MO 

RSE : PREMI I TASTI.": PRINT 

1210 PRINT AT 1,5;"PREMI ENTER PER FINIR 

E": PRINT 

1215 GO SUB 1415 

1220 LET fl-CODE G*-43 

1225 IF fl—30 THEN GO TO 1065 

1230 IF A—11 THEN PRINT " ";: PAUSE 10 

: GO TO 1215 

1235 IF A“2 OR A-4 OR A*=17 OR A=18 OR fl= 



19 OR fi=21 OR A<1 OR fi>47 THEN BEEP .5, 
-40: GO TO 1215 
1240 PRIMI G#; 

1245 GO SUB 1365: GO TO 1215 
1250 CLS 

1255 LET ZZ=0: INPUT BRIGHI 1;"DAMMI IL 
MESSAGGIO ";D* 

1260 GO SUB 1285: IF ZZ THEN GO TO 1255 
1265 CLS : PRINT BRIGHI 1;RT 1,5;"PREMI 
ENTER PER FINIRE" 

1270 PRINT : PRINT 
1275 GO SUB 1310 
1280 PfiUSE 10: GO TO 1275 
1285 FOR K-l TO LEN D* 

1290 LET Fl-CODE D*<K>-43 
1295 IF fi—11 THEN GO TO 1305 
1300 IF fl=2 OR fi“4 OR Fl*17 OR fi=18 OR fi- 
19 OR fi-21 OR FI<1 OR fi>47 THEN PRINT HT 
0,6;D«K" CfiRfiTTERE INESflTTO": LET ZZ 
-1: BEEP .3,-40 
1305 NEXT K: RETURN 
1310 FOR K-l TO LEM D* 

1315 PRINT D«K>; 

1320 LET fl-CODE D*<K>-43 
1325 GO SUB 1365: NEXT K 
1330 PRINT : RETURN 
1335 CLS 

1340 INPUT “PAROLE PER MINUTO ? ";E 
1345 IF E>20 THEN PRINT AT 0,4;"SONO TR 
OPPE...RIPROVA !!": GO TO 1340 
1350 IF E<4 THEN PRINT fiT 0,4;"SONO POC 

HE-RIPROVA II": GO TO 1340 

1355 LET F-.7/E 
1360 GO TO 1065 

1365 IF fi—11 THEN PfiUSE F#200: RETURN 
1370 FOR 1=1 TO 6 

1375 IF fi*<fl,I>=" " THEN GO TO 1395 
1380 BEEP VAL fi*<fi,I>#F,40 
1385 FOR Z=1 TO 70-E STEP E- NEXT Z 
1390 NEXT I 

1395 FOR Z=1 TO 140-E STEP E: NEXT Z 
1400 IF INKEY*=CHR* 13 THEN GO TO 1065 
1405 RETURN 
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1410 IF INKEY*<>"" THEN GO TO 1410 
1415 IF INKEY*»"" THEN GO TO 1415 
1420 LET G*-INKEY*: RETURN 
1425 OVER 1: PLOT 50,135: DRflW 0,9: DRflW 
156,0 

1430 DRflW 0,-3: DRflW -156,0 
1435 OVER 0: LET G*“INKEY*: RETURN 
1440 POK.E 23658,0 
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Una giusta via di mezzo tra la praticità di uso e la velocità di 
esecuzione dì un programma è rappresentata dall'uso combi¬ 
nato del BASIC e del linguaggio macchina; la conoscenza di 
quest'ultimo è comunque indispensabile per poter sfruttare a 
pieno il proprio calcolatore. 

Questa è la premessa da cui parte l'autore, per proporre una 
serie di interessanti programmi BASIC che si servono dì routine 
scritte in linguaggio macchina. 

La proposta è un po' diversa dal solito e per questo particolar¬ 
mente interessante presentando un utilizzo intelligente e raflina- 
to della macchina. 
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